1 val Max : Int = 10;

     2 

     3 def sqr(x: Int) : Int = x * x;

     4 

     5 def all(n: Int) : Void = {

     6   if n <= Max

     7   then { print_int(sqr(n)) ; new_line(); all(n + 1) }

     8   else skip()

     9 };

    10 

    11 {

    12   print_string("Squares");

    13   new_line();

    14   all(0)

    15 }