files/practicum/RomeinsGetal.dcl

   1 definition module RomeinsGetal
   2
   3 import StdEnv
   4
   5 :: RD    = M | D | C | L | X | V | I
   6 :: Roman = Roman [RD]
   7
   8 instance toInt   Roman
   9 instance fromInt Roman