#!/usr/bin/perl -w

use strict;

sub z{split(/O/)}$_='040910191109112912091419143914591509153915491569157916291'.
'639164916582OFODOEOO0OAOBOEO7O6OCOO3O6OCO9OO1O4O5O8O6OC F;V-T*"(D85LD7R!N95PB'.
'7"(_;V-T*%PB,\'@D7UPB*2LQ.C!=(BD`';m/([^8]*)8(\w*) (.*)/;$_=$1;y/9/O/;my@a=z;
$_=$2;foreach(z){print chr eval unpack "u*",$3}