showError :: LispError -> String
showError (UnboundVar message varname)  = message ++ ": " ++ varname
showError :: LispError -> String
showError (UnboundVar message varname)  = message ++ ": " ++ varname
showError (UnboundVar message varname)  = message ++ ": " ++ varname