#!/usr/bin/perl

# Square
# See also http://perlmonks.org/?node_id=452413
eval($a=q~$_="!oohay  technical rehtona tsuj";$|=$==print"\ec";while($_)
{select$',$',$',0.1;printf"\e[%d;%dH%s\e[%d5;H\$q=0%s%c%s%c)$/",eval'$q?
$=<23?(1+$=/2,20+$=/2):$=<46?(12,54-$=):(35-$=/2,$=/2-13):$=>23&&$=<49?(
2,48-$=):($=>45?3:1,$=%48),chop',$q,!$q.';eval($a=q',126,$a,126;$=+=2}~)