mirror of
https://github.com/ganelson/inform.git
synced 2024-07-03 07:24:58 +03:00
19 lines
342 B
Plaintext
19 lines
342 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
|
|
primitive !if val code -> void
|
|
primitive !jump lab -> void
|
|
|
|
package main _plain
|
|
typename K_number = int32
|
|
typename K_func = function /main/K_number -> /main/K_number
|
|
package (K_func) R_101 _code
|
|
local (/main/K_number) x
|
|
code
|
|
.begin
|
|
inv !if
|
|
val 1
|
|
code
|
|
inv !jump
|
|
lab .begin
|