#!/usr/bin/perl -w
use strict;

open(F,$0);$_=<F>;chomp;$_.=<F>;
s;^.*?\/(..).*?i(.).(.*?)\s.*?\ss(.)(.).(.).*;
J$1$4 a$2o$4he$5 $3 ha$6ke$5!;;
print;