4.3BSD/usr/contrib/icon/book/14/stars.icn

procedure star(chars)
   suspend "" | (star(chars) || !chars)
end