#!/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