/* als05a.rex pas d'erreur, c'est du Rexx */
numeric digits 15 /* sinon, pb È partir de 99 */
k = 1
p = 1
do while  p > 0
 car = k*k
 p   = car*car
 say format( k , 5) format( p , 30 )
 k = k+1
 if k > 5625 then exit
end /*  while  p > 0 */