
;; Copyright (C) 2017 Tommi Höynälänmaa

;; Expected results: translation and running OK

(define-proper-program (tests test600)

  (import (standard-library core)
	  (standard-library console-io))

  (define january
    '(("New Years Day" #t #t #t #t #f #t)
      ("Presidential Inauguration" #f #t #f #t #f #f)
      ("Martin Luther King Jr. day" #f #t #f #t #f #f)))

  (define february
    '(("Presidents' Day" #f #t #f #t #f #f)
      ("Groundhog Day" #f #f #f #f #f #f)
      ("Valentine's Day" #f #f #f #f #t #t)))

  (define march
    '(("National Tree Planting Day" #f #f #f #f #f #f)
      ("St Patrick's Day" #f #f #f #f #f #t)))

  (define april
    '(("April Fools' Day" #f #f #f #f #f #t)
      ("Army Day" #f #f #f #f #f #f)
      ("Earth Day" #f #f #f #f #f #t)
      ("Administrative Professionals' Day" #f #f #f #f #f #f)))

  (define may
    '(("Nurses' Day" #f #f #f #f #f #f)
      ("National Day of Prayer" #f #f #f #f #f #f)
      ("Mothers' Day" #f #f #f #f #f #t)
      ("Armed Forces Day" #f #f #f #f #f #f)
      ("Memorial Day" #t #t #t #t #f #t)))

  (define june
    '(("June Fathers' Day" #f #f #f #f #f #t)
      ("Juneteenth (Liberation of Slaves)" #f #f #f #f #f #f)
      ("Flag Day" #f #t #f #t #f #f)))

  (define july
    '(("Parents' Day" #f #f #f #f #f #t)
      ("Independence Day" #f #t #f #t #f #f)))

  (define august
    '(("Air Force Day" #f #f #f #f #f #f)
      ("Coast Guard Day" #f #f #f #f #f #f)
      ("Friendship Day" #f #f #f #f #f #f)))

  (define september
    '(("Grandparents' Day" #f #f #f #f #f #t)
      ("Citizenship Day or Constitution Day" #f #f #f #f #f #f)
      ("Labor Day" #t #t #t #t #f #t)))

  (define october
    '(("National Children's Day" #f #f #f #f #f #f)
      ("Bosses' Day" #f #f #f #f #f #f)
      ("Sweetest Day" #f #f #f #f #f #f)
      ("Mother-in-Law's Day" #f #f #f #f #f #f)
      ("Navy Day" #f #f #f #f #f #f)
      ("Columbus Day" #f #t #f #t #f #f)
      ("Halloween" #f #f #f #f #f #t)))

  (define november
    '(("Marine Corps Day" #f #f #f #f #f #f)
      ("Veterans' Day" #t #t #t #t #f #t)
      ("Thanksgiving" #f #t #f #t #f #f)))

  (define december
    '(("Pearl Harbor Remembrance Day" #f #f #f #f #f #f)
      ("Christmas" #t #t #t #t #f #t)
      ("Kwanzaa" #f #f #f #f #f #f)))

  (define toplevel
    `(("January"   ,january)
      ("February"  ,february)
      ("March"     ,march)
      ("April"     ,april)
      ("May"       ,may)
      ("June"      ,june)
      ("July"      ,july)
      ("August"    ,august)
      ("September" ,september)
      ("October"   ,october)
      ("November"  ,november)
      ("December"  ,december)))

  (define-simple-proc main (() <none> nonpure)
    (console-display-line toplevel)))
