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

link "../ilib/bold"

procedure main()
   while line := read() do {
      write(image(bold(line)))
      write(image(uscore(line)))
      }
end