implementation module Group

import StdEnv

Start = ( group isEven  [1 .. 10]
        , group isOdd   [1 .. 10]
        , group isDigit ['7 Dwergen en 11 princessen zoenden 3 kikkerprinsen.']
        )

group :: (a -> Bool) [a] -> [[a]]
group ...