alpah4

{set %M,"1"}
{do
  {write 1,1,"Hello World!"}
 while %M = "1"}