number2String :: [LispVal] -> ThrowsError LispVal
number2String [SimpleVal (Number x)] = return $ fromSimple $ String $ show x
number2String :: [LispVal] -> ThrowsError LispVal
number2String [SimpleVal (Number x)] = return $ fromSimple $ String $ show x
number2String [SimpleVal (Number x)] = return $ fromSimple $ String $ show x