rahcola

module Kuulaskuri (luo, monesko, seuraava) where

import Data.IORef

newtype Kuulaskuri = Kuulaskuri (IORef Int)

luo :: IO Kuulaskuri
luo = do
    c <- newIORef 1
    return $ Kuulaskuri c

rahcola

module Kuukausi where

data Kuukausi = Tammikuu
              | Helmikuu
              | Maaliskuu
              | Huhtikuu
              | Toukokuu
              | Kesäkuu
              | Elokuu
              | Heinäkuu