do forever;
   put list ('SPAM'); put skip;
end;