q = 0         # =; $
A = 1 ; q = 0 # =;
print 'Perl',
if A == q:    # :;
    print "\b\b\bython ", q##;	
print "rules!\n"