#!/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"; }