RosettaCodeData/Task/Loops-Infinite/PostScript/loops-infinite-2.ps

12 lines
201 B
PostScript

/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