begin
   integer x = 0

   routine step1
      x = 1
   end

   routine step2
      x = 2
   end

   routine step3
      x = 3
   end

   step1
   step2
   step3
   write(x, 0);  newline
endofprogram