# Copyright (C) 2001-2008, The Perl Foundation.
# $Id: /mirror/trunk/t/perl/testlib/answer.pir 34005 2008-12-16T19:09:35.143636Z coke  $
.sub _main
    print "The answer is\n"
    add $I0, 20, 23
    dec $I0
    print $I0
    print "\nsays Parrot!\n"
    end
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
