# Script from Date - Example 6.6.2
>Get supplier names for suppliers who supply at least one red part
pta=select (p) (color='red')
ptb=join (pta) (p) (pta.pnum=p.pnum)
ptc=project (ptb) (snum)
ptd=join (ptc) (s) (ptc.snum=s.snum)
pte=project (ptd) (sname)
print pte
@ 
# LEAP source file - Richard Leyton, 25/02/1996
