$line="\n.ssalc ni senalpria repap worht ton lliw I";
print join'',reverse split//,$line for 1..500;