module Aoc (splitOn) where

splitOn c l|(h,_:t)<-span(/=c) l=h:splitOn c t|let=[l]