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

link "../ilib/seqimage"

procedure main()
   write(Seqimage{1 to 10,5})
   write(Seqimage{1 to 10,12})
   write(Seqimage{1 to 10})
   write(Seqimage{!"abcdefghijk"})
end