showLispVal (Sequence seq) = "(begin " ++ tail (init $ show seq) ++ ")"
showLispVal (Sequence seq) = "(begin " ++ tail (init $ show seq) ++ ")"
showLispVal (Sequence seq) = "(begin " ++ tail (init $ show seq) ++ ")"