func sqr n .
   return n * n
.
print sqr 3
#
proc divmod a b . q r .
   q = a div b
   r = a mod b
.
divmod 11 3 q r
print q & " " & r
#
subr sqr2
   a = a * a
.
a = 5
sqr2
print a