Given a list:
li = [1,2,3,4,5]
we can filter a list with a predicate using filter :: (a -> Bool) -> [a] -> [a]:
filter (== 1) li -- [1]
filter (even) li -- [2,4]
filter (odd) li -- [1,3,5]
-- Something slightly more complicated
comfy i = notTooLarg...