ToDo. Сделать prototype. Аналог FORWARD. Но с объявлением сигнатуры

Integer Prototype SetOneAndReturn:
 ^ IN V
;

VAR X

SetOneAndReturn: X DROP
X .

VAR Y
SetOneAndReturn: X >>> Y
X .
Y .

IMPLEMENT SetOneAndReturn:
 V := 1
 20 >>> Result 
;