vextoly/cryn

[# an indirect call preserves the working value: call call runs twice #]
make string "x" s

define tick result nothing
  make string "tick"
  output text
  set nothing
  return
end

define twice transform f result nothing
  move f
  read
  call
  call
  set nothing
  return
end

define main
  make int64 n
  set 2
  move n
  write
  address tick
  push
  call twice
  make string "\n"
  output text
  return
end