proc main()
{
    "", oadl::objname(main), '\n';
    "", oadl::findobj("main"), '\n';
}