#!/usr/local/bin/perl
# early Music - 作成時は2007年。

@1 = (
'太陽王ルイ14世の時代、ブルボン朝最盛期のフランスでこの音楽は生まれた。 - 330',
'Missa (H.1) : Sanctus / マルカントワーヌ・シャルパンティエ'
);
# hosi ah na / in excelsis Deo

@2 = (
'ヨーロッパ連合軍がレパントの戦いでオスマントルコを破った頃、スペインでこの音楽は生まれた。 - 435',
''
);
# Wikipadia Japan : レパントの海戦

@3 = (
'今から530年前、フランドル地方でこの音楽は生まれた。',
''
);

@4 = (
'40パートを要するこのモテットが生まれた。',
'我、汝の他に望みなし / トマス・タリス'
);

@5 = (
'今から400年前のイギリスでこの音楽は生まれた。',
''
);

@6 = (
'ヨーロッパで三十年戦争が終った年、ポルトガルでこの音楽が生まれた。 - 360',
''
);

$num = rand(5)+1;
$num = int($num);
@TEXT = @{$num};

print "@TEXT[0]\n";
print "@TEXT[1]\n";
exit;