[Haskell-cafe] Sat solver