showLispVal (Assignment name val) = "(set! " ++ name ++ " " ++ show val ++ ")"
showLispVal (Assignment name val) = "(set! " ++ name ++ " " ++ show val ++ ")"
showLispVal (Assignment name val) = "(set! " ++ name ++ " " ++ show val ++ ")"