RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Agena/trabb-pardo-knuth-algorithm.agena

scope   # TPK algorithm in Agena
  local y;
  local a := [];
  local proc f( t :: number ) :: number return sqrt(abs(t))+5*t*t*t end;
  for i from 0 to 10 do a[i] := tonumber( io.read() ) od;
  for i from 10 to 0 by - 1 do
      y:=f(a[i]);
      if y > 400
      then print( "TOO LARGE" )
      else printf( "%10.4f\n", y )
      fi
  od
end