| hack : module | |
| dcl i int; | |
| fred : proc (a int in, b int loc); | |
| writetext(stdout, "a was '%C'; b was '%C'.%/", a, b); | |
| b + := 1; | |
| end fred; | |
| klaus : proc (); | |
| writetext(stdout, "here's klaus calling.%/"); | |
| end klaus; | |
| i:=12; | |
| writetext(stdout, "done.%/"); | |
| end hack; |