Function A($)
  do
    do 
      $a=$a + ($ mod 10) * ($ mod 10)
      $=$/10
    until $=0
    $=$a
    $a=iif($=1,1,0)
  until $<10 | $a
Endfunction