#!/usr/bin/perl -w
print 0777, $/;
print 0+'0777', $/;
printf "0%o\n",0777;
printf "0%o\n",'0777';

##</code><code>##

511
777
0777
01411