[Haskell-beginners] Pearls of Functional Algorithm Design - find the smallest free number