(newline) (write (command-line)) (newline) (write (map string->symbol (command-line)))