Временные мухи любят стрелы

[dastapov]

today = do
   modify (\state -> state {age = age state +1})
   get greetings

Comments

[http://users.livejournal.com/_raveness_/]

Минуты две втыкала в исходник ;)
Поздравляю! Удачи и хорошего настроения тебе и семейству!