#!/usr/bin/perl -lp
BEGIN{++vec$,,$.+=y///c,1for+split' ',q;q,q, q, q,q, q q, q q, q, q,q q q,
q,q,q q q, q q,q q q q, q, q,q q q,q,q,q q,q q, q,q q q,q q q q, q q,q, q,
q q q, q, q,q q q,q q,q q q q,q,q,q q,q,q q, q q q,q,q q, q q, q, q,q q
q,q,q,q q,q q q,q q q q,q, q, q q q,q q,q q q q, q,q q, q q,q q q q, q q,
q q q,q q q,q,q,q q,q,q q, q q q, q q q q, q q,q,q,q q,q, q,q, q q, q, q,q
q q,q,q,q q,q q q,q q q q, q, q,q q q, q,q,q q q,q q,q q q q, q q,q, q q,q,q
q, q q, q, q,q q q,q, q,q q q,q,q,q q,q, q q,q q q, q q q q, q q,q q,q q q
q,q,q,q q,q,q q, q q q,q,q q, q q, q, q,q q q,q,q,q q,q q q,q q q q,q, q, q
q q,q q,q q q q, q,q q, q q,q q q q, q q, q q q,q q q,q,q,q q,q q q q,q q,q
q, q q, q q, q q q q, q q,q q q q, q q, q q, q, q q, q, q,q q q, q,q q q q
q, q q q,q q,q, q, q q;;print$,}last}($,,$=)=($,=~/([a-z]{6})/,$,=~/'(.*)'/);
for("@{[ucfirst$,,$&,was,(/$1/?():'not'),found,in,the,input,$,.q,.,]}"){