strip :: String -> String
strip = lstrip . rstrip where
    lstrip = dropWhile (`elem` " \t\r\n")
    rstrip = reverse . lstrip . reverse
strip :: String -> String
strip = lstrip . rstrip where
    lstrip = dropWhile (`elem` " \t\r\n")
    rstrip = reverse . lstrip . reverse
strip = lstrip . rstrip where
    lstrip = dropWhile (`elem` " \t\r\n")
    rstrip = reverse . lstrip . reverse