INT FUNCTION id(VAL INT i) IS i :
PROC P ()
  INT x:
  x := id (4)
: