str : string := "99 bottles of ";
str ++= "beer";
Print: str;