[Haskell-cafe] Yet another implementation of cond