4.3BSD/usr/contrib/icon/libtest/t-pdco.icn

link "../ilib/pdco"
link "../ilib/gener"

procedure main()
   every write(Galt{1 to 10,!"abcd",1 to 10})
   write("---")
   every write(Limit{1 to 100,3})
   write("---")
   every write(Ranseq{!"abcd",1 to 10})
end