seek DATA,0,0;while(<DATA>){@_=split'',$_;push @JAPH,[@_]}for(split/;/
,'0,48;0,43;0,44;0,35;0,4;3,20;3,24;3,14;0,35;0,45;0,1;3,15;0,4;0,50;0
,1;3,15;0,17;0,4;0,45;3,20;3,17;0,3;0,1;3,15;0,9'){@_=split /,/,$_;@_,
push @n,[@_]}for$c(@a..@n-1){print $JAPH[$n[$c][0]][$n[$c][1]]}__END__