charToInteger [SimpleVal (Character c)] = return $ fromSimple $ Number $ NumI $ toInteger $ ord c
charToInteger [SimpleVal (Character c)] = return $ fromSimple $ Number $ NumI $ toInteger $ ord c
charToInteger [SimpleVal (Character c)] = return $ fromSimple $ Number $ NumI $ toInteger $ ord c