<opt>
  <sig>
    <code>eval($a=q~$_=&quot;!oohay  technical rehtona tsuj&quot;;$|=$==print&quot;\ec&quot;;while($_)
{select$',$',$',0.1;printf&quot;\e[%d;%dH%s\e[%d5;H\$q=0%s%c%s%c)$/&quot;,eval'$q?
$=&lt;23?(1+$=/2,20+$=/2):$=&lt;46?(12,54-$=):(35-$=/2,$=/2-13):$=&gt;23&amp;&amp;$=&lt;49?(
2,48-$=):($=&gt;45?3:1,$=%48),chop',$q,!$q.';eval($a=q',126,$a,126;$=+=2}~)</code>
    <pm>452413</pm>
    <title>Square</title>
  </sig>
</opt>

