;; data taken from https://utopia.de/ratgeber/saisonkalender-fuer-gemuese-obst/

(define status
  '((#\o . "aus Lagerung")
    (#\O . "frisch")))

(define months
  #("Januar" "Februar" "März" "April" "Mai" "Juni"
    "Juli" "August" "September" "Oktober" "November" "Dezember"))

(define availability-index #(0 1 2 4 5 6 8 9 10 12 13 14))

(define food
  '(("Obst"
     ;;                   jfm amj jas ond
     ("Äpfel"          . "ooo o__ _OO OOo")
     ("Aprikose"       . "___ ___ _OO Ooo")
     ("Birnen"         . "o__ ___ __O ooo")
     ("Blaubeeren"     . "___ __O OOO ___")
     ("Brombeeren"     . "___ ___ OOO ___")
     ("Erdbeeren"      . "___ __O OOO ___")
     ("Himbeeren"      . "___ ___ OOO ___")
     ("Holunderbeeren" . "___ ___ __O O__")
     ("Johannisbeeren" . "___ __O OO_ ___")
     ("Kirschen"       . "___ __O OO_ ___")
     ("Mirabellen"     . "___ ___ OOO ___")
     ("Pflaumen"       . "___ ___ OOO ___")
     ("Quitten"        . "___ ___ ___ OO_")
     ("Rhabarber"      . "___ OOO ___ ___")
     ("Stachelbeeren"  . "___ __O OO_ ___")
     ("Trauben"        . "___ ___ __O O__")
     ("Wassermelonen"  . "___ ___ _OO ___")
     ("Zwetschgen"     . "___ ___ OOO O__")
     )
    ("Gemüse"
     ;;                      jfm amj jas ond
     ("Aubergine"         . "___ ___ _OO O__")
     ("Bärlauch"          . "__O OO_ ___ ___")
     ("Blumenkohl"        . "___ _OO OOO O__")
     ("Bohnen, grüne"     . "___ ___ OOO O__")
     ("Bohnen, dicke"     . "___ __O OO_ ___")
     ("Brokkoli"          . "___ __O OOO O__")
     ("Butterrüben"       . "ooo o__ _OO OOO")
     ("Champignons"       . "OOO OOO OOO OOO")
     ("Chinakohl"         . "ooo ooO OOO OOo")
     ("Erbsen"            . "___ __O OOO ___")
     ("Fenchel"           . "___ __O OOO OO_")
     ("Frühlingszwiebeln" . "___ _OO OOO OO_")
     ("Grünkohl"          . "OO_ ___ ___ _OO")
     ("Gurken"            . "___ __O OOO ___")
     ("Karotten"          . "ooo ooO OOO OOo")
     ("Kartoffeln"        . "ooo ooO OOO Ooo")
     ("Knollensellerie"   . "ooo ooo OOO OOo")
     ("Kohlrabi"          . "___ _OO OOO O__")
     ("Kürbis"            . "ooo o__ _OO OOo")
     ("Lauch"             . "OOO O__ OOO OOO")
     ("Mais"              . "___ __O OOO O__")
     ("Mangold"           . "___ _OO OOO O__")
     ("Paprika"           . "___ ___ _OO O__")
     ("Pastinaken"        . "OOO o__ __O OOO")
     ("Radieschen"        . "___ OOO OOO O__")
     ("Rettich"           . "ooo oOO OOO Ooo")
     ("Rosenkohl"         . "OOO ___ ___ OOO")
     ("Rote Beete"        . "ooo o__ OOO OOo")
     ("Rotkohl"           . "ooo ___ OOO OOo")
     ("Schwarzwurzel"     . "oo_ ___ ___ OOo")
     ("Spargel"           . "___ OOO ___ ___")
     ("Spinat"            . "__O OO_ __O O__")
     ("Spitzkohl"         . "ooo o_O OOO OOo")
     ("Staudensellerie"   . "___ _OO OOO OO_")
     ("Steckrüben"        . "ooo ___ __O Ooo")
     ("Tomaten"           . "___ ___ _OO O__")
     ("Topinambur"        . "OOO ___ ___ OOO")
     ("Weißkohl"          . "ooo o__ OOO OOo")
     ("Wirsing"           . "ooo o_O OOO OOo")
     ("Zucchini"          . "___ __O OOO O__")
     ("Zuckerschoten"     . "___ __O OO_ ___")
     ("Zwiebeln"          . "ooo ooO OOO Ooo")
     )
    ("Salate"
     ;;                   jfm amj jas ond
     ("Batavia"        . "___ _OO OOO O__")
     ("Chicorrée"      . "OOO ___ ___ OOO")
     ("Eichblattsalat" . "___ _OO OOO O__")
     ("Eisbergsalat"   . "___ _OO OOO OO_")
     ("Endiviensalat"  . "___ OOO OOO OO_")
     ("Feldsalat"      . "OOO O__ ___ OOO")
     ("Kopfsalat"      . "___ _OO OOO O__")
     ("Lollo Rosso"    . "___ _OO OOO O__")
     ("Pflücksalat"    . "___ _OO OOO O__")
     ("Radicchio"      . "___ ___ OOO O__")
     ("Romanasalat"    . "___ __O OOO ___")
     ("Rucola"         . "___ _OO OOO OO_")
     )))