#!/usr/bin/perl
#
# The Doom of the Noldor / The Prophecy of the North
# J. R. R. Tolkien - Quenta Silmarillion
#
# Tears unnumbered ye shall shed;
# and the Valar will fence Valinor against you,
# and shut you out,
# so that not even the echo of your lamentation
# shall pass over the mountains.
#
# On the House of Feanor the wrath of the Valar lieth
# from the West unto the uttermost East,
# and upon all that will follow them
# it shall be laid also.
#
$_= 'The Doom of the Noldor' or 'The Prophecy of the North';
while( /Doom/ ) {
shed("tears ");
do {
$Valar{'fence_of_Valinor'}++ and $shut_out;
} until not( $echo_of_lamentation > $mountains );
for( $West..$uttermost_East ) {
map{$_ = $Valar{'wrath'}} (@House_of_Feanor, @followers);
}
}
sub shed{print shift}