[Haskell-cafe] river crossing puzzle