#!/usr/bin/env /friends/bin/postscript
%1 1 30 
%{ dup 15 mod 0 eq {(FizzBuzz)}
%{ dup 3 mod 0 eq {(Fizz)} 
%{ dup 5 mod 0 eq {(Buzz)}
%if} ifelse } ifelse = clear }
%for 

%(.) print
%1 5 string cvs print
%(.) print

[10 8 8 98 32 2 4 5 10 ] dup length dict begin  aload let* currentdict {pop} map end