You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
291 B
17 lines
291 B
2 years ago
|
let proc p1 () ~
|
||
|
|
let var c1: Char;
|
||
|
|
proc p2 () ~
|
||
|
|
let proc p3 () ~
|
||
|
|
let proc p4 () ~
|
||
|
|
let proc p5 () ~
|
||
|
|
let proc p6 () ~
|
||
|
|
let proc p7 () ~
|
||
|
|
put (c1)
|
||
|
|
in p7 ()
|
||
|
|
in p6 ()
|
||
|
|
in p5 ()
|
||
|
|
in p4 ()
|
||
|
|
in p3 ()
|
||
|
|
in begin c1 := '+'; p2 () end
|
||
|
|
in p1 ()
|