#!/usr/bin/perl -w
use strict;

my$japh=q=815011301080222181506122815080025141102202911201=;
$[=1;my@a=(q,a,..q,u,,q, ,);$_.=$a[join'',chop$japh,chop$japh]while
length$japh;print;