1 2 3 4 5 6 7 8 9 10
concrete NatAscii of Nat = { lincat Nat = Str ; lin zero = "" ; succ n = "_" ++ n ; lincat NE = {} ; }