[Haskell-cafe] modelling problem