val Max : Int = 10;

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

def all(n: Int) : Void = {

  if n <= Max

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

  else skip()

};

{

  print_string("Squares");

  new_line();

  all(0)

}