character*167a,b,c;read'(a)',a,b,c 1 print'(13a/7a)',a(:19),"u",a(20:66),"maple syrup",a(71:84),"u",a(85:94),"c",a(96:136),"re",a(139:149),"re",a(152:),& b(:9),"re",b(12:49),b(51:79),"me",b(80:121),"toque!",c(:27),"re",c(30:67),"u",c(68:89),"me",c(90:138),"um.";end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).