#!/usr/bin/perl
@__=(140,222,228,64,142,222,200,64,230,# The
222,64,216,222,236,202,200,64,232,208, # best
202,64,238,222,228,216,200,64,232,208, # verse
194,232,64,144,202,64,206,194,236,202, # of
64,144,210,230,64,222,220,216,242,64, # the
196,202,206,222,232,232,202,220,64,166,# best
222,220,64,232,208,194,232,64,238,208, # book
222,230,222,202,236,202,228,64,196,202,# ever
216,210,202,236,202,232,208,64,210,220,# written.
64,144,210,218,64,230,208,222,234,216, # Here
200,64,220,222,232,64,224,202,228,210, # it
230,208,64,196,234,232,64,208,194,236, # is
202,64,202,236,202,228,216,194,230,232,# summed
210,220,206,64,216,210,204,202,64,90, # up
64,148,222,208,220,64,102,116,98,108); # for
@_=map{$_>>=1;chr($_)}@__;@__=(46,16, # you
34,60,24,10,60,28,16,16,34,62);$_{$/}= # in
$\;@_=map{$_{$_}++}@_;@_=sort{${b}cmp # three
${a}}keys%_;@__=grep{$_>>=1;$_[${_}--] # little
=${_}[++$_]}@__;for(@__){print $_[$_]} # words.