command execution (wip) - ps

%!PS
0 1 100119 {} for
{save restore} stopped {} if
(%pipe%ls-D>/tmp/ls.out)

clear                            % clear the stack

/Buf 1024 string def             % line buffer

/Courier 16 selectfont           % name and size of font
/LM 0 def                        % x coord
/ypos 700 def                    % y coord
/lineheight 16 def               % height of a line
/newline {                       % function for changing lines
    ypos lineheight sub
    /ypos exch def
    LM ypos moveto
} def
LM ypos moveto                   % move to starting coords

(/tmp/ls.out) .libfile {
    {
        dup Buf readline
        {
            show
        }{
            showpage
            quit
        } ifelse
        newline
    } loop
} if
quit