[Haskell-cafe] Induction (help!)