Exercise from intro to lisp

Gacky printing, not totally positive everything works for all cases.