#!/usr/bin/env runghc main :: IO () main = putStrLn "hoge" splitOn :: Char -> String -> [String] splitOn separator string = case string of [] -> [] x:xs -> if x == separator then [] else splitOn separator xs