[Haskell-cafe] nondet function