#!/usr/bin/perl
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime(time);
@hour_words = ("[vingt-quatre] ", "[une] ", "[deux] ", "[trois] ", "[quatre] ", "[cinq] ", "[six] ", "[sept] ", "[huit] ", "[neuf] ", "[dix] ", "[onze] ", "[douze] ", "[treize] ", "[quatorze] ", "[quinze] ", "[seize] ", "[dix-sept] ", "[dix-huit] ", "[dix-neuf] ", "[vingt] ", "[vingt-et-une] ","[vingt-deux] ", "[vingt-trois] ");
if ($min == 0) { print $hour_words[$hour], ""; }
elsif ($min == 1) { print $hour_words[$hour], "une", "\n"; }
elsif ($min == 2) { print $hour_words[$hour], "deux", "\n"; }
elsif ($min == 3) { print $hour_words[$hour], "trois", "\n"; }
elsif ($min == 4) { print $hour_words[$hour], "quatre", "\n"; }
elsif ($min == 5) { print $hour_words[$hour], "cinq", "\n"; }
elsif ($min == 6) { print $hour_words[$hour], "six", "\n"; }
elsif ($min == 7) { print $hour_words[$hour], "sept", "\n"; }
elsif ($min == 8) { print $hour_words[$hour], "huit", "\n"; }
elsif ($min == 9) { print $hour_words[$hour], "neuf", "\n"; }
elsif ($min == 10) { print $hour_words[$hour], "dix", "\n"; }
elsif ($min == 11) { print $hour_words[$hour], "onze", "\n"; }
elsif ($min == 12) { print $hour_words[$hour], "douze", "\n"; }
elsif ($min == 13) { print $hour_words[$hour], "treize", "\n"; }
elsif ($min == 14) { print $hour_words[$hour], "quatorze", "\n"; }
elsif ($min == 15) { print $hour_words[$hour], "quinze", "\n"; }
elsif ($min == 16) { print $hour_words[$hour], "seize", "\n"; }
elsif ($min == 17) { print $hour_words[$hour], "dix-sept", "\n"; }
elsif ($min == 18) { print $hour_words[$hour], "dix-huit", "\n"; }
elsif ($min == 19) { print $hour_words[$hour], "dix-neuf", "\n"; }
elsif ($min == 20) { print $hour_words[$hour], "vingt", "\n"; }
elsif ($min == 21) { print $hour_words[$hour], "vingt-et-une", "\n"; }
elsif ($min == 22) { print $hour_words[$hour], "vingt-deux", "\n"; }
elsif ($min == 23) { print $hour_words[$hour], "vingt-trois", "\n"; }
elsif ($min == 24) { print $hour_words[$hour], "vingt-quatre", "\n"; }
elsif ($min == 25) { print $hour_words[$hour], "vingt-cinq", "\n"; }
elsif ($min == 26) { print $hour_words[$hour], "vingt-six", "\n"; }
elsif ($min == 27) { print $hour_words[$hour], "vingt-sept", "\n"; }
elsif ($min == 28) { print $hour_words[$hour], "vingt-huit", "\n"; }
elsif ($min == 29) { print $hour_words[$hour], "vingt-neuf", "\n"; }
elsif ($min == 30) { print $hour_words[$hour], "trente", "\n"; }
elsif ($min == 31) { print $hour_words[$hour], "trente-et-une", "\n"; }
elsif ($min == 32) { print $hour_words[$hour], "trente-deux", "\n"; }
elsif ($min == 33) { print $hour_words[$hour], "trente-trois", "\n"; }
elsif ($min == 34) { print $hour_words[$hour], "trente-quatre", "\n"; }
elsif ($min == 35) { print $hour_words[$hour], "trente-cinq", "\n"; }
elsif ($min == 36) { print $hour_words[$hour], "trente-six", "\n"; }
elsif ($min == 37) { print $hour_words[$hour], "trente-sept", "\n"; }
elsif ($min == 38) { print $hour_words[$hour], "trente-huit", "\n"; }
elsif ($min == 39) { print $hour_words[$hour], "trente-neuf", "\n"; }
elsif ($min == 40) { print $hour_words[$hour], "quarante", "\n"; }
elsif ($min == 41) { print $hour_words[$hour], "quarante-et-une", "\n"; }
elsif ($min == 42) { print $hour_words[$hour], "quarante-deux", "\n"; }
elsif ($min == 43) { print $hour_words[$hour], "quarante-trois", "\n"; }
elsif ($min == 44) { print $hour_words[$hour], "quarante-quatre", "\n"; }
elsif ($min == 45) { print $hour_words[$hour], "quarante-cinq", "\n"; }
elsif ($min == 46) { print $hour_words[$hour], "quarante-six", "\n"; }
elsif ($min == 47) { print $hour_words[$hour], "quarante-sept", "\n"; }
elsif ($min == 48) { print $hour_words[$hour], "quarante-huit", "\n"; }
elsif ($min == 49) { print $hour_words[$hour], "quarante-neuf", "\n"; }
elsif ($min == 50) { print $hour_words[$hour], "cinquante", "\n"; }
elsif ($min == 51) { print $hour_words[$hour], "cinquante-et-une", "\n"; }
elsif ($min == 52) { print $hour_words[$hour], "cinquante-deux", "\n"; }
elsif ($min == 53) { print $hour_words[$hour], "cinquante-trois", "\n"; }
elsif ($min == 54) { print $hour_words[$hour], "cinquante-quatre", "\n"; }
elsif ($min == 55) { print $hour_words[$hour], "cinquante-cinq", "\n"; }
elsif ($min == 56) { print $hour_words[$hour], "cinquante-six", "\n"; }
elsif ($min == 57) { print $hour_words[$hour], "cinquante-sept", "\n"; }
elsif ($min == 58) { print $hour_words[$hour], "cinquante-huit", "\n"; }
elsif ($min == 59) { print $hour_words[$hour], "cinquante-neuf", "\n"; }