! print out ababababa

let
  var a : Integer;
  var b : Integer
in
begin
  a := 0;
  loop
  begin
    put('a');
    a := a + 1;
  end
  while a < 5 do
  	put('b');
end