chunkBits n = helper
where helper [] = []
helper xs
= let (chunk
, rest
) = splitAt n xs
in sum chunk : helper rest
main
= print $ chunkBits
5 [0,1,1,0,1,0,0,1,0,1,0,1,1,1,0,0,0,1]
Y2h1bmtCaXRzIG4gPSBoZWxwZXIKICB3aGVyZSBoZWxwZXIgW10gPSBbXQogICAgICAgIGhlbHBlciB4cyA9IGxldCAoY2h1bmssIHJlc3QpID0gc3BsaXRBdCBuIHhzCiAgICAgICAgICAgICAgICAgICAgaW4gc3VtIGNodW5rIDogaGVscGVyIHJlc3QKCm1haW4gPSBwcmludCAkIGNodW5rQml0cyA1IFswLDEsMSwwLDEsMCwwLDEsMCwxLDAsMSwxLDEsMCwwLDAsMV0=