summaryrefslogtreecommitdiff
path: root/files/practicum/RomeinsGetal.dcl
blob: 4657184408d15c4b71d21821ed4f737dc27394bd (plain) (blame)
1
2
3
4
5
6
7
8
9
definition module RomeinsGetal

import StdEnv

:: RD    = M | D | C | L | X | V | I
:: Roman = Roman [RD]

instance toInt   Roman
instance fromInt Roman