sub fun(\$$;$)
        {
        print "\n";
        print shift;
        print shift;
        print shift;
        }