/makewin { % - => - (builds a test window)
    /win framebuffer /new DefaultWindow send def	% cliche
    {
        /PaintClient { .4 fillcanvas } def		% draw after damage
        /FrameLabel ( Workspace ) def		% label window
    } win send			% execute contents of 
			%   {} in win's context

    /reshapefromuser win send			% select size/position
    /map win send			% make visible
} def

makewin			% run the program