#!/usr/bin/perl -w
@_=map {chr} 71,73,70,56,57,97,15,0,5,0,128,0,0,255,0,0,0,0,0,44,0,0,0,0,15,0,5,0,0,2,17,76,96,120,128,157,7,157,139,108,53,38,163,209,42,63,80,0,0,59; foreach $a (@_){print $a;}