perl -e 'eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'