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