#!/usr/bin/perl
($n,$s)=('phroggy',join'',map{(sort split'','b_jl msepr$hyacn"otg.')
[$_]}map ord()-97=>split''=>'shfmfrajitkpstguofniabcedlfqkdcodhpnb')
and print eval $s for(0..6);