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

link "../ilib/gener"

procedure main()
   i := 0
   every write(hex()) \ 50 do i +:= 1
   write("---",i)
   i := 0
   every write(label("foo",10)) \ 20
   write("---")
   every write(octal()) \ 50 do i +:= 1
   write("---",i)
   every write(star("123")) \ 30
end