(princ '|What is your name? |)
(setq a (read))
(princ '|Hello |)
(princ a)
(princ '|!|)

This program asks you your name and then says hello to you! I learnt how to do conditionals and define functions (yes, even recursive ones) too, but I’m officially worn out. I’m retreating to infix notation post haste!