list2Simple :: [LispVal] -> ThrowsError LispVal
list2Simple [] = return $ fromSimple $ SimpleList []
list2Simple :: [LispVal] -> ThrowsError LispVal
list2Simple [] = return $ fromSimple $ SimpleList []
list2Simple [] = return $ fromSimple $ SimpleList []