(toplevel-command
  'i
  (lambda ()
   (let ((eggs (read-line)))
     (system (sprintf "chicken-install ~a" eggs))))
  ",i EGG ...\t   installs the eggs given as arguments")