5 read :: *File -> [[Int]]
8 | l.[size l - 1] <> '\n' = []
9 = [[tobin c\\c<-:l % (0, size l - 2)]:read f]
19 = (one ls, findHole (sort (map seatNo ls)))
21 findHole x = hd [b+1\\a<-x & b<-tl x & c<-tl (tl x) | a+1 == b && b+1 <> c]
22 one = foldl (\m v->if (v>m) v m) 0 o map seatNo
23 seatNo = foldl (\n s->s + 2*n) 0