path: root/day06.mew

(for (n '(4 14))
  (op=> (slurp "day06")
        gen
        (gwindow _ n)
        (gmap cons _ (range n))
        (gfilter (fun=> car unlist <>?) _)
        app
        cdr
        prn))