[Haskell-cafe] Combination-lock problem