#!/usr/bin/perl

oct oct hex ord q pop and print chr oct ord q chr uc and print chr ord q each le and print chr ord q qr q and print chr ord qq q q and print chr ord q eval 
ge and print chr ord q tie gt and print chr ord q ge log and print chr ord qw q ne q and print chr ord q each ne and print chr ord q msgctl m and print chr 
ord q q eq and print chr ord q split s and print chr ord q ge log and print chr ord q qr q and print chr ord q else and print chr ord q xor x and print chr 
ord q q q and print chr ord q chr lc and print chr ord q map m and print chr ord q mkdir m and print chr ord q ne sin and print chr ord q qr q and print chr 
ord q sin s and print chr ord q msgctl m