sub _{map
{print chr}
($_[__(111,114
,100)],10)}sub __
{join "",map
{chr($_)}@_
}map{_ $_
}qw(74
65 80
72)