(toplevel-command
 'i
 (lambda ()
   (let ((egg (read)))
     (system (sprintf "chicken-install ~a" egg)))))