forked from GitHub/gf-core
13 lines
138 B
Plaintext
13 lines
138 B
Plaintext
concrete NatAscii of Nat = {
|
|
|
|
lincat Nat = Str ;
|
|
|
|
lin zero = "" ;
|
|
succ n = "-" ++ n ;
|
|
|
|
lincat NE = {} ;
|
|
|
|
lin plus x y = x ++ y ;
|
|
|
|
}
|