module Pattern.Infix where --(a:b:c:d) = ["1","2","3","4"] Nothing:_ = undefined