#!/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