:: myplot ( s -- ) 
<plot> [ >integer s nth ] add-function 
0 >>x-min 
s length 1 - >>x-max 
0 >>y-min 
s 0 [ max ] reduce >integer 10 + >>y-max 
"plot" open-window ;