link gener

procedure main()
   every write(octal()) \ 10
   every write(star("(*)")) \ 20
end