Paste: plot word

:: 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 ;
Author:	yoeljacobsen
Mode:	factor
Date:	Tue, 11 Nov 2008 11:57:37