#!/usr/bin/perl -w
#justanotherperlhacker
use strict;
open*_,$0;<_>;
(y,#,,d,s,t,t ,,s,r,r ,,s,l,l ,,y,j,J,,y,p,P,,s,$,.,,print,goto'')
for<_>