#!/usr/bin/perl

not exp log srand xor s qq qx xor
s m m length uc ord and print chr
ord for qw q s our use tr hex q m
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for m xor scalar ord sin print qq
qq xor int eval lc qq y split cos
and print chr ord for qw x printf
each return local x y and do exit