perl-scripts/JAPH/alpha_japh_2.pl

print chr length o x ord qw o J o and
print chr length o x ord qw x u x and
print chr length o x ord qw o s o and
print chr length o x ord qw x t x and
print chr length o x ord qq o   o and
print chr length o x ord qw x a x and
print chr length o x ord qw o n o and
print chr length o x ord qw x o x and
print chr length o x ord qw o t o and
print chr length o x ord qw x h x and
print chr length o x ord qw o e o and
print chr length o x ord qw x r x and
print chr length o x ord qq o   o and
print chr length o x ord qw x P x and
print chr length o x ord qw o e o and
print chr length o x ord qw x r x and
print chr length o x ord qw o l o and
print chr length o x ord qq x   x and
print chr length o x ord qw o h o and
print chr length o x ord qw x a x and
print chr length o x ord qw o c o and
print chr length o x ord qw x k x and
print chr length o x ord qw o e o and
print chr length o x ord qw x r x and
print chr length time and do not exit