(Pattern b -> Pattern b) -> Pattern b -> Pattern b
chunk npat f p  = innerJoin $ (\n -> _chunk n f p) <$> npat

-- deprecated (renamed
chunk :: Pattern Int -> (Pattern b -> Pattern b) -> Pattern b -> Pattern b
chunk npat f p  = innerJoin $ (\n -> _chunk n f p) <$> npat
chunk npat f p  = innerJoin $ (\n -> _chunk n f p) <$> npat