# als05a.awk
BEGIN {  ARGV[1]="" ; k = 1 ; p = 1 ;
   while (p > 0) {
    car = k*k ; p = car*car
    if (k>218) { p = -1 }
    printf("%20d%30d\n", k,p)
    k   = k+1
   } # while  p > 0
}