type signeAstrologique = Belier|Taureau|Gemeau|Cancer|Lion|Vierge|Balance|Scorpion|Sagittaire|Capricorne|Verseau|Poisson|Disquette|Batterie|Clavier|Pingouin|CleUSB|DiscDur|Compilateur|Pomme|Chameau|Console|Souris|Cable|JeNeConnaisPasMonSigne

let horoscope = function
|Belier  |Clavier  -> print_string "Amateur(rice) de carresse, votre partenaire vous comblera aujourd'hui. bonne entente avec tout le monde sauf les poissons"
|Taureau |Batterie -> print_string "Vous êtes la force vive qui alimente votre entourage en énergie. Pensez cependant à vous recharger, votre conjoint est là pour ça...Bonne entente avec les autres signes animaliers."
|Gemeau  |Pingouin -> print_string "En froid avec votre partenaire, vous vous faites cependant toujours plus d'amis. Quel charisme!. Bonne entente avec les signes ayant un nombre de lettre premier" (*Vive Linux!*)
|Cancer  |CleUSB   -> print_string "Vous êtes volage! vous aimez votre liberté mais accordez donc un peu plus d'attention à la personne qui vous attend.Bonne entente avec les scorpions."
|Lion  |Compilateur-> print_string "Vous avez une bonne compréhension de ce qui vous entoure. toutefois gare aux erreurs, vous ne saurez pas toujours les gérer."
|Vierge  |Pomme    -> print_string "L'appel du serpent devrait vous faire découvrir des territoires inexplorés...goutez au fruit défendu!" (*A mort les mac et windows aussi!*)
|Balance |Souris   -> print_string "Vous aimez vous laisser guider.N'hésitez pas à imposer votre point vue (même si il est null) de temps à autre: cela ramenera l'équilibre dans votre couple. Bonne entente avec les balances."
|Scorpion |DiscDur -> print_string "Votre coeur est immense et il y a toujours de la place pour vos ami(e)s.Vous souffreze cependant de l'indifférence d'autrui, cela pourrait changer...bonne entente avec personne!"
|Sagittaire|Chameau-> print_string "Percé par les flèches de Cupidon (gros con!), vous visez un nouveau record: 42 conquêtes en une soirée! Séduire est récursif pour vous : la séduction appelle la séduction!"
|Capricorne |Console -> print_string "Tout le monde lit en vous comme dans un livre ouvert. Vous aimez cependant que l'on s'attendrisse sur vous..."
|Verseau    |Cable -> print_string "Vous êtes le lien qui unit vos amis. Laissez les cependant s'exprimer. Eux aussi ont besoin de déverser des flots d'inepties..."
|Poisson |Disquette-> print_string "Aujourd'hui, de grands changements pourraient arriver... Pensez à vérifier vos mise-à-jour et à kicker tout ce qui est obsolète."
| _ -> while true do print_string "Boulet !"done

(*JALB*)