#!/usr/bin/env runghc
main :: IO ()
main =
  putStrLn "hoge"

splitOn :: String -> String -> [String]
splitOn separator string =
  case string of
    [] -> []
    x:xs ->
      if x == separator then:
        []
      else:
        []