/go {
  /spam
     { (SPAM\n) print flush }
  bind def % bind and define spam

  { spam } % procedure that will be executed by loop and will call spam to print
  loop % the loop
}

%start spamming!
go