%!PS-Adobe-2.0 EPSF-2.0
%%Title: start-stop.fig
%%Creator: fig2dev Version 3.1 Patchlevel 2
%%CreationDate: Tue Sep 30 12:17:49 1997
%%For: marcod@qui (Marco Danelutto)
%Magnification: 1.00
%%Orientation: Portrait
%%BoundingBox: 0 0 648 113
%%Pages: 0
%%BeginSetup
%%IncludeFeature: *PageSize Letter
%%EndSetup
%%EndComments
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/col-1 {0 setgray} bind def
/col0 {0.000 0.000 0.000 srgb} bind def
/col1 {0.000 0.000 1.000 srgb} bind def
/col2 {0.000 1.000 0.000 srgb} bind def
/col3 {0.000 1.000 1.000 srgb} bind def
/col4 {1.000 0.000 0.000 srgb} bind def
/col5 {1.000 0.000 1.000 srgb} bind def
/col6 {1.000 1.000 0.000 srgb} bind def
/col7 {1.000 1.000 1.000 srgb} bind def
/col8 {0.000 0.000 0.560 srgb} bind def
/col9 {0.000 0.000 0.690 srgb} bind def
/col10 {0.000 0.000 0.820 srgb} bind def
/col11 {0.530 0.810 1.000 srgb} bind def
/col12 {0.000 0.560 0.000 srgb} bind def
/col13 {0.000 0.690 0.000 srgb} bind def
/col14 {0.000 0.820 0.000 srgb} bind def
/col15 {0.000 0.560 0.560 srgb} bind def
/col16 {0.000 0.690 0.690 srgb} bind def
/col17 {0.000 0.820 0.820 srgb} bind def
/col18 {0.560 0.000 0.000 srgb} bind def
/col19 {0.690 0.000 0.000 srgb} bind def
/col20 {0.820 0.000 0.000 srgb} bind def
/col21 {0.560 0.000 0.560 srgb} bind def
/col22 {0.690 0.000 0.690 srgb} bind def
/col23 {0.820 0.000 0.820 srgb} bind def
/col24 {0.500 0.190 0.000 srgb} bind def
/col25 {0.630 0.250 0.000 srgb} bind def
/col26 {0.750 0.380 0.000 srgb} bind def
/col27 {1.000 0.500 0.500 srgb} bind def
/col28 {1.000 0.630 0.630 srgb} bind def
/col29 {1.000 0.750 0.750 srgb} bind def
/col30 {1.000 0.880 0.880 srgb} bind def
/col31 {1.000 0.840 0.000 srgb} bind def

end
save
-10.0 125.0 translate
1 -1 scale

/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/sa {save} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/rm {rmoveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/sh {show} bind def
/slc {setlinecap} bind def
/slj {setlinejoin} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/rot {rotate} bind def
/sc {scale} bind def
/sd {setdash} bind def
/ff {findfont} bind def
/sf {setfont} bind def
/scf {scalefont} bind def
/sw {stringwidth} bind def
/tr {translate} bind def
/tnt {dup dup currentrgbcolor
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
  bind def
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  4 -2 roll mul srgb} bind def
 /DrawEllipse {
	/endangle exch def
	/startangle exch def
	/yrad exch def
	/xrad exch def
	/y exch def
	/x exch def
	/savematrix mtrx currentmatrix def
	x y tr xrad yrad sc 0 0 1 startangle endangle arc
	closepath
	savematrix setmatrix
	} def

/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog

$F2psBegin
10 setmiterlimit
n 0 792 m 0 0 l 612 0 l 612 792 l cp clip
 0.06000 0.06000 sc
/Helvetica-Narrow ff 270.00 scf sf
1050 1050 m
gs 1 -1 sc (read/generate) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
1050 1380 m
gs 1 -1 sc (input stream) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
1050 1710 m
gs 1 -1 sc (data items) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
1050 2025 m
gs 1 -1 sc (\(type 'a\)) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
10050 975 m
gs 1 -1 sc (write/consume) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
10050 1305 m
gs 1 -1 sc (output stream) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
10050 1635 m
gs 1 -1 sc (data items) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
10050 1950 m
gs 1 -1 sc (\(type 'b\)) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
5475 1050 m
gs 1 -1 sc (skeleton program) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
5475 1380 m
gs 1 -1 sc (\('a stream -> 'b stream\)) dup sw pop 2 div neg 0 rm  col-1 sh gr
7.500 slw
% Ellipse
n 2775 1425 270 270 0 360 DrawEllipse gs col1 0.50 shd ef gr gs col-1 s gr

% Ellipse
n 8175 1425 270 270 0 360 DrawEllipse gs col1 0.50 shd ef gr gs col-1 s gr

% Polyline
gs  clippath
3828 1395 m 3948 1425 l 3828 1455 l 3990 1455 l 3990 1395 l  cp clip
n 3075 1425 m 3975 1425 l gs col-1 s gr gr

% arrowhead
n 3828 1395 m 3948 1425 l 3828 1455 l 3828 1425 l 3828 1395 l  cp gs 0.00 setgray ef gr  col-1 s
% Polyline
gs  clippath
7728 1395 m 7848 1425 l 7728 1455 l 7890 1455 l 7890 1395 l  cp clip
n 6975 1425 m 7875 1425 l gs col-1 s gr gr

% arrowhead
n 7728 1395 m 7848 1425 l 7728 1455 l 7728 1425 l 7728 1395 l  cp gs 0.00 setgray ef gr  col-1 s
% Polyline
 [15 50.0] 50.0 sd
gs  clippath
2346 1285 m 2385 1402 l 2296 1317 l 2383 1454 l 2433 1422 l  cp clip
n 1875 600 m 2400 1425 l gs col-1 s gr gr
 [] 0 sd
% arrowhead
n 2346 1285 m 2385 1402 l 2296 1317 l  col-1 s
% Polyline
 [15 50.0] 50.0 sd
gs  clippath
8662 1250 m 8566 1328 l 8614 1214 l 8517 1344 l 8565 1380 l  cp clip
n 9225 450 m 8550 1350 l gs col-1 s gr gr
 [] 0 sd
% arrowhead
n 8662 1250 m 8566 1328 l 8614 1214 l  col-1 s
% Polyline
 [15 50.0] 50.0 sd
gs  clippath
7496 1218 m 7432 1324 l 7439 1201 l 7392 1356 l 7449 1373 l  cp clip
n 7650 600 m 7425 1350 l gs col-1 s gr gr
 [] 0 sd
% arrowhead
n 7496 1218 m 7432 1324 l 7439 1201 l  col-1 s
% Polyline
 [15 50.0] 50.0 sd
gs  clippath
3406 1207 m 3437 1326 l 3353 1235 l 3431 1378 l 3484 1349 l  cp clip
n 3000 525 m 3450 1350 l gs col-1 s gr gr
 [] 0 sd
% arrowhead
n 3406 1207 m 3437 1326 l 3353 1235 l  col-1 s
% Polyline
 [66.7] 0 sd
n 3975 525 m 6975 525 l 6975 2025 l 3975 2025 l cp gs col-1 s gr  [] 0 sd
/Helvetica-Narrow ff 270.00 scf sf
2850 375 m
gs 1 -1 sc ('a stream) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
1050 450 m
gs 1 -1 sc (start process) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
10050 450 m
gs 1 -1 sc (stop process) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Narrow ff 270.00 scf sf
7875 375 m
gs 1 -1 sc ('b stream) dup sw pop 2 div neg 0 rm  col-1 sh gr
$F2psEnd
rs