#!/usr/bin/perl
log xor print chr oct ord q split s xor print chr ord qw q uc q xor print chr ord qw q s q xor print chr ord q gt log xor print chr ord q q eq xor print chr ord uc qq map m xor print chr ord qw q ne q xor print chr ord qq pop xor print chr ord q stat s xor print chr ord q chr lc xor print chr ord q ne sin xor print chr ord q or no xor print chr ord q q q xor print chr oct ord q exp ge xor print chr ord q ge log xor print chr ord q qr q xor print chr ord qq else xor print chr ord qq q q xor print chr oct ord qw q ne q xor print chr ord q map m xor print chr ord q oct do xor print chr ord q mkdir m xor print chr ord q ne sin xor print chr ord q qr q