JAPH17

#!/usr/bin/perl

print chr length qw a b a x ord qq bJb and
print chr length qw b c b x ord qq cuc and
print chr length qw c d c x ord qq dsd and
print chr length qw d e d x ord qq ete and
print chr length qw e f e x ord qq f f and
print chr length qw f g f x ord qq gag and
print chr length qw g h g x ord qq hnh and
print chr length qw h i h x ord qq ioi and
print chr length qw i j i x ord qq jtj and
print chr length qw j k j x ord qq khk and
print chr length qw k l k x ord qq lel and
print chr length qw l m l x ord qq mrm and
print chr length qw m n m x ord qq n n and
print chr length qw n o n x ord qq oPo and
print chr length qw o p o x ord qq pep and
print chr length qw p q p x ord qq qrq and
print chr length qw q r q x ord qq rlr and
print chr length qw r s r x ord qq s s and
print chr length qw s t s x ord qq tht and
print chr length qw t u t x ord qq uau and
print chr length qw u v u x ord qq vcv and
print chr length qw v w v x ord qq wkw and
print chr length qw w x w x ord qq xex and
print chr length qw x y x x ord qq yry and
print chr length time and do not eval exit