%!PS-Adobe-3.0
%%Creator: (David W. Speck)
%%CreationDate: (2014)

/closure {
    dup xcheck { exch } { errordict /typecheck get exec } ifelse
    aload length 2 idiv dup dict begin { def } repeat
    { 0 begin 0 exec end } dup length array copy cvx
    dup 0 currentdict put dup 2 4 -1 roll put bind end
} bind def