From cd65fc74b65b28bf520561d38435e46ff4d848aa Mon Sep 17 00:00:00 2001
From: eNascimento178 <85421753+eNascimento178@users.noreply.github.com>
Date: Tue, 21 May 2024 14:03:41 -0300
Subject: [PATCH] add meetup exercise

---
 config.json                                   |    8 +
 .../practice/meetup/.docs/instructions.md     |   51 +
 exercises/practice/meetup/.meta/config.json   |   18 +
 exercises/practice/meetup/.meta/example.ijs   |   10 +
 exercises/practice/meetup/.meta/tests.toml    |  295 ++++
 exercises/practice/meetup/meetup.ijs          |   12 +
 exercises/practice/meetup/test.ijs            | 1245 +++++++++++++++++
 7 files changed, 1639 insertions(+)
 create mode 100644 exercises/practice/meetup/.docs/instructions.md
 create mode 100644 exercises/practice/meetup/.meta/config.json
 create mode 100644 exercises/practice/meetup/.meta/example.ijs
 create mode 100644 exercises/practice/meetup/.meta/tests.toml
 create mode 100644 exercises/practice/meetup/meetup.ijs
 create mode 100644 exercises/practice/meetup/test.ijs

diff --git a/config.json b/config.json
index 86d5c09..1ef39f2 100644
--- a/config.json
+++ b/config.json
@@ -273,6 +273,14 @@
         "practices": [],
         "prerequisites": [],
         "difficulty": 6
+      },
+      {
+        "slug": "meetup",
+        "name": "Meetup",
+        "uuid": "0aa37027-b2cd-4580-937b-5b2336ceee68",
+        "practices": [],
+        "prerequisites": [],
+        "difficulty": 5
       }
     ]
   },
diff --git a/exercises/practice/meetup/.docs/instructions.md b/exercises/practice/meetup/.docs/instructions.md
new file mode 100644
index 0000000..0694ef5
--- /dev/null
+++ b/exercises/practice/meetup/.docs/instructions.md
@@ -0,0 +1,51 @@
+# Instructions
+
+Recurring monthly meetups are generally scheduled on the given weekday of a given week each month.
+In this exercise you will be given the recurring schedule, along with a month and year, and then asked to find the exact date of the meetup.
+
+For example a meetup might be scheduled on the _first Monday_ of every month.
+You might then be asked to find the date that this meetup will happen in January 2018.
+In other words, you need to determine the date of the first Monday of January 2018.
+
+Similarly, you might be asked to find:
+
+- the third Tuesday of August 2019 (August 20, 2019)
+- the teenth Wednesday of May 2020 (May 13, 2020)
+- the fourth Sunday of July 2021 (July 25, 2021)
+- the last Thursday of November 2022 (November 24, 2022)
+
+The descriptors you are expected to process are: `first`, `second`, `third`, `fourth`, `last`, `teenth`.
+
+Note that descriptor `teenth` is a made-up word.
+
+It refers to the seven numbers that end in '-teen' in English: 13, 14, 15, 16, 17, 18, and 19.
+But general descriptions of dates use ordinal numbers, e.g. the _first_ Monday, the _third_ Tuesday.
+
+For the numbers ending in '-teen', that becomes:
+
+- 13th (thirteenth)
+- 14th (fourteenth)
+- 15th (fifteenth)
+- 16th (sixteenth)
+- 17th (seventeenth)
+- 18th (eighteenth)
+- 19th (nineteenth)
+
+So there are seven numbers ending in '-teen'.
+And there are also seven weekdays (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday).
+Therefore, it is guaranteed that each day of the week (Monday, Tuesday, ...) will have exactly one numbered day ending with "teen" each month.
+
+If asked to find the teenth Saturday of August, 1953 (or, alternately the "Saturteenth" of August, 1953), we need to look at the calendar for August 1953:
+
+```plaintext
+    August 1953
+Su Mo Tu We Th Fr Sa
+                   1
+ 2  3  4  5  6  7  8
+ 9 10 11 12 13 14 15
+16 17 18 19 20 21 22
+23 24 25 26 27 28 29
+30 31
+```
+
+The Saturday that has a number ending in '-teen' is August 15, 1953.
diff --git a/exercises/practice/meetup/.meta/config.json b/exercises/practice/meetup/.meta/config.json
new file mode 100644
index 0000000..2bfe1e5
--- /dev/null
+++ b/exercises/practice/meetup/.meta/config.json
@@ -0,0 +1,18 @@
+{
+  "authors": [
+    "eNascimento178"
+  ],
+  "files": {
+    "solution": [
+      "meetup.ijs"
+    ],
+    "test": [
+      "test.ijs"
+    ],
+    "example": [
+      ".meta/example.ijs"
+    ]
+  },
+  "blurb": "Calculate the date of meetups.",
+  "source": "Jeremy Hinegardner mentioned a Boulder meetup that happens on the Wednesteenth of every month"
+}
diff --git a/exercises/practice/meetup/.meta/example.ijs b/exercises/practice/meetup/.meta/example.ijs
new file mode 100644
index 0000000..ac0f19f
--- /dev/null
+++ b/exercises/practice/meetup/.meta/example.ijs
@@ -0,0 +1,10 @@
+meetup=: {{
+  'year month week dayofweek'=: y
+
+  teenthdays=: (year , month , ])every 13+i.7
+  '`first second third fourth teenth last'=: (0&{)`(1&{)`(2&{)`(3&{)`(,@:{~ (I.@e.)&teenthdays)`(_1&{)
+  daysinmonth=: ((year, month)&,)every >: i. (>./ @ , @: ". @ > @ calendar) year, month
+  dayofweek =: (;: 'Sunday Monday Tuesday Wednesday Thursday Friday Saturday')&i. <dayofweek
+  
+  week~ (#~ [: (dayofweek)&=  weekday) daysinmonth
+}}
diff --git a/exercises/practice/meetup/.meta/tests.toml b/exercises/practice/meetup/.meta/tests.toml
new file mode 100644
index 0000000..1e5b84d
--- /dev/null
+++ b/exercises/practice/meetup/.meta/tests.toml
@@ -0,0 +1,295 @@
+# This is an auto-generated file.
+#
+# Regenerating this file via `configlet sync` will:
+# - Recreate every `description` key/value pair
+# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications
+# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion)
+# - Preserve any other key/value pair
+#
+# As user-added comments (using the # character) will be removed when this file
+# is regenerated, comments can be added via a `comment` key.
+
+[d7f8eadd-d4fc-46ee-8a20-e97bd3fd01c8]
+description = "when teenth Monday is the 13th, the first day of the teenth week"
+
+[f78373d1-cd53-4a7f-9d37-e15bf8a456b4]
+description = "when teenth Monday is the 19th, the last day of the teenth week"
+
+[8c78bea7-a116-425b-9c6b-c9898266d92a]
+description = "when teenth Monday is some day in the middle of the teenth week"
+
+[cfef881b-9dc9-4d0b-8de4-82d0f39fc271]
+description = "when teenth Tuesday is the 19th, the last day of the teenth week"
+
+[69048961-3b00-41f9-97ee-eb6d83a8e92b]
+description = "when teenth Tuesday is some day in the middle of the teenth week"
+
+[d30bade8-3622-466a-b7be-587414e0caa6]
+description = "when teenth Tuesday is the 13th, the first day of the teenth week"
+
+[8db4b58b-92f3-4687-867b-82ee1a04f851]
+description = "when teenth Wednesday is some day in the middle of the teenth week"
+
+[6c27a2a2-28f8-487f-ae81-35d08c4664f7]
+description = "when teenth Wednesday is the 13th, the first day of the teenth week"
+
+[008a8674-1958-45b5-b8e6-c2c9960d973a]
+description = "when teenth Wednesday is the 19th, the last day of the teenth week"
+
+[e4abd5e3-57cb-4091-8420-d97e955c0dbd]
+description = "when teenth Thursday is some day in the middle of the teenth week"
+
+[85da0b0f-eace-4297-a6dd-63588d5055b4]
+description = "when teenth Thursday is the 13th, the first day of the teenth week"
+
+[ecf64f9b-8413-489b-bf6e-128045f70bcc]
+description = "when teenth Thursday is the 19th, the last day of the teenth week"
+
+[ac4e180c-7d0a-4d3d-b05f-f564ebb584ca]
+description = "when teenth Friday is the 19th, the last day of the teenth week"
+
+[b79101c7-83ad-4f8f-8ec8-591683296315]
+description = "when teenth Friday is some day in the middle of the teenth week"
+
+[6ed38b9f-0072-4901-bd97-7c8b8b0ef1b8]
+description = "when teenth Friday is the 13th, the first day of the teenth week"
+
+[dfae03ed-9610-47de-a632-655ab01e1e7c]
+description = "when teenth Saturday is some day in the middle of the teenth week"
+
+[ec02e3e1-fc72-4a3c-872f-a53fa8ab358e]
+description = "when teenth Saturday is the 13th, the first day of the teenth week"
+
+[d983094b-7259-4195-b84e-5d09578c89d9]
+description = "when teenth Saturday is the 19th, the last day of the teenth week"
+
+[d84a2a2e-f745-443a-9368-30051be60c2e]
+description = "when teenth Sunday is the 19th, the last day of the teenth week"
+
+[0e64bc53-92a3-4f61-85b2-0b7168c7ce5a]
+description = "when teenth Sunday is some day in the middle of the teenth week"
+
+[de87652c-185e-4854-b3ae-04cf6150eead]
+description = "when teenth Sunday is the 13th, the first day of the teenth week"
+
+[2cbfd0f5-ba3a-46da-a8cc-0fe4966d3411]
+description = "when first Monday is some day in the middle of the first week"
+
+[a6168c7c-ed95-4bb3-8f92-c72575fc64b0]
+description = "when first Monday is the 1st, the first day of the first week"
+
+[1bfc620f-1c54-4bbd-931f-4a1cd1036c20]
+description = "when first Tuesday is the 7th, the last day of the first week"
+
+[12959c10-7362-4ca0-a048-50cf1c06e3e2]
+description = "when first Tuesday is some day in the middle of the first week"
+
+[1033dc66-8d0b-48a1-90cb-270703d59d1d]
+description = "when first Wednesday is some day in the middle of the first week"
+
+[b89185b9-2f32-46f4-a602-de20b09058f6]
+description = "when first Wednesday is the 7th, the last day of the first week"
+
+[53aedc4d-b2c8-4dfb-abf7-a8dc9cdceed5]
+description = "when first Thursday is some day in the middle of the first week"
+
+[b420a7e3-a94c-4226-870a-9eb3a92647f0]
+description = "when first Thursday is another day in the middle of the first week"
+
+[61df3270-28b4-4713-bee2-566fa27302ca]
+description = "when first Friday is the 1st, the first day of the first week"
+
+[cad33d4d-595c-412f-85cf-3874c6e07abf]
+description = "when first Friday is some day in the middle of the first week"
+
+[a2869b52-5bba-44f0-a863-07bd1f67eadb]
+description = "when first Saturday is some day in the middle of the first week"
+
+[3585315a-d0db-4ea1-822e-0f22e2a645f5]
+description = "when first Saturday is another day in the middle of the first week"
+
+[c49e9bd9-8ccf-4cf2-947a-0ccd4e4f10b1]
+description = "when first Sunday is some day in the middle of the first week"
+
+[1513328b-df53-4714-8677-df68c4f9366c]
+description = "when first Sunday is the 7th, the last day of the first week"
+
+[49e083af-47ec-4018-b807-62ef411efed7]
+description = "when second Monday is some day in the middle of the second week"
+
+[6cb79a73-38fe-4475-9101-9eec36cf79e5]
+description = "when second Monday is the 8th, the first day of the second week"
+
+[4c39b594-af7e-4445-aa03-bf4f8effd9a1]
+description = "when second Tuesday is the 14th, the last day of the second week"
+
+[41b32c34-2e39-40e3-b790-93539aaeb6dd]
+description = "when second Tuesday is some day in the middle of the second week"
+
+[90a160c5-b5d9-4831-927f-63a78b17843d]
+description = "when second Wednesday is some day in the middle of the second week"
+
+[23b98ce7-8dd5-41a1-9310-ef27209741cb]
+description = "when second Wednesday is the 14th, the last day of the second week"
+
+[447f1960-27ca-4729-bc3f-f36043f43ed0]
+description = "when second Thursday is some day in the middle of the second week"
+
+[c9aa2687-300c-4e79-86ca-077849a81bde]
+description = "when second Thursday is another day in the middle of the second week"
+
+[a7e11ef3-6625-4134-acda-3e7195421c09]
+description = "when second Friday is the 8th, the first day of the second week"
+
+[8b420e5f-9290-4106-b5ae-022f3e2a3e41]
+description = "when second Friday is some day in the middle of the second week"
+
+[80631afc-fc11-4546-8b5f-c12aaeb72b4f]
+description = "when second Saturday is some day in the middle of the second week"
+
+[e34d43ac-f470-44c2-aa5f-e97b78ecaf83]
+description = "when second Saturday is another day in the middle of the second week"
+
+[a57d59fd-1023-47ad-b0df-a6feb21b44fc]
+description = "when second Sunday is some day in the middle of the second week"
+
+[a829a8b0-abdd-4ad1-b66c-5560d843c91a]
+description = "when second Sunday is the 14th, the last day of the second week"
+
+[501a8a77-6038-4fc0-b74c-33634906c29d]
+description = "when third Monday is some day in the middle of the third week"
+
+[49e4516e-cf32-4a58-8bbc-494b7e851c92]
+description = "when third Monday is the 15th, the first day of the third week"
+
+[4db61095-f7c7-493c-85f1-9996ad3012c7]
+description = "when third Tuesday is the 21st, the last day of the third week"
+
+[714fc2e3-58d0-4b91-90fd-61eefd2892c0]
+description = "when third Tuesday is some day in the middle of the third week"
+
+[b08a051a-2c80-445b-9b0e-524171a166d1]
+description = "when third Wednesday is some day in the middle of the third week"
+
+[80bb9eff-3905-4c61-8dc9-bb03016d8ff8]
+description = "when third Wednesday is the 21st, the last day of the third week"
+
+[fa52a299-f77f-4784-b290-ba9189fbd9c9]
+description = "when third Thursday is some day in the middle of the third week"
+
+[f74b1bc6-cc5c-4bf1-ba69-c554a969eb38]
+description = "when third Thursday is another day in the middle of the third week"
+
+[8900f3b0-801a-466b-a866-f42d64667abd]
+description = "when third Friday is the 15th, the first day of the third week"
+
+[538ac405-a091-4314-9ccd-920c4e38e85e]
+description = "when third Friday is some day in the middle of the third week"
+
+[244db35c-2716-4fa0-88ce-afd58e5cf910]
+description = "when third Saturday is some day in the middle of the third week"
+
+[dd28544f-f8fa-4f06-9bcd-0ad46ce68e9e]
+description = "when third Saturday is another day in the middle of the third week"
+
+[be71dcc6-00d2-4b53-a369-cbfae55b312f]
+description = "when third Sunday is some day in the middle of the third week"
+
+[b7d2da84-4290-4ee6-a618-ee124ae78be7]
+description = "when third Sunday is the 21st, the last day of the third week"
+
+[4276dc06-a1bd-4fc2-b6c2-625fee90bc88]
+description = "when fourth Monday is some day in the middle of the fourth week"
+
+[ddbd7976-2deb-4250-8a38-925ac1a8e9a2]
+description = "when fourth Monday is the 22nd, the first day of the fourth week"
+
+[eb714ef4-1656-47cc-913c-844dba4ebddd]
+description = "when fourth Tuesday is the 28th, the last day of the fourth week"
+
+[16648435-7937-4d2d-b118-c3e38fd084bd]
+description = "when fourth Tuesday is some day in the middle of the fourth week"
+
+[de062bdc-9484-437a-a8c5-5253c6f6785a]
+description = "when fourth Wednesday is some day in the middle of the fourth week"
+
+[c2ce6821-169c-4832-8d37-690ef5d9514a]
+description = "when fourth Wednesday is the 28th, the last day of the fourth week"
+
+[d462c631-2894-4391-a8e3-dbb98b7a7303]
+description = "when fourth Thursday is some day in the middle of the fourth week"
+
+[9ff1f7b6-1b72-427d-9ee9-82b5bb08b835]
+description = "when fourth Thursday is another day in the middle of the fourth week"
+
+[83bae8ba-1c49-49bc-b632-b7c7e1d7e35f]
+description = "when fourth Friday is the 22nd, the first day of the fourth week"
+
+[de752d2a-a95e-48d2-835b-93363dac3710]
+description = "when fourth Friday is some day in the middle of the fourth week"
+
+[eedd90ad-d581-45db-8312-4c6dcf9cf560]
+description = "when fourth Saturday is some day in the middle of the fourth week"
+
+[669fedcd-912e-48c7-a0a1-228b34af91d0]
+description = "when fourth Saturday is another day in the middle of the fourth week"
+
+[648e3849-ea49-44a5-a8a3-9f2a43b3bf1b]
+description = "when fourth Sunday is some day in the middle of the fourth week"
+
+[f81321b3-99ab-4db6-9267-69c5da5a7823]
+description = "when fourth Sunday is the 28th, the last day of the fourth week"
+
+[1af5e51f-5488-4548-aee8-11d7d4a730dc]
+description = "last Monday in a month with four Mondays"
+
+[f29999f2-235e-4ec7-9dab-26f137146526]
+description = "last Monday in a month with five Mondays"
+
+[31b097a0-508e-48ac-bf8a-f63cdcf6dc41]
+description = "last Tuesday in a month with four Tuesdays"
+
+[8c022150-0bb5-4a1f-80f9-88b2e2abcba4]
+description = "last Tuesday in another month with four Tuesdays"
+
+[0e762194-672a-4bdf-8a37-1e59fdacef12]
+description = "last Wednesday in a month with five Wednesdays"
+
+[5016386a-f24e-4bd7-b439-95358f491b66]
+description = "last Wednesday in a month with four Wednesdays"
+
+[12ead1a5-cdf9-4192-9a56-2229e93dd149]
+description = "last Thursday in a month with four Thursdays"
+
+[7db89e11-7fbe-4e57-ae3c-0f327fbd7cc7]
+description = "last Thursday in a month with five Thursdays"
+
+[e47a739e-b979-460d-9c8a-75c35ca2290b]
+description = "last Friday in a month with five Fridays"
+
+[5bed5aa9-a57a-4e5d-8997-2cc796a5b0ec]
+description = "last Friday in a month with four Fridays"
+
+[61e54cba-76f3-4772-a2b1-bf443fda2137]
+description = "last Saturday in a month with four Saturdays"
+
+[8b6a737b-2fa9-444c-b1a2-80ce7a2ec72f]
+description = "last Saturday in another month with four Saturdays"
+
+[0b63e682-f429-4d19-9809-4a45bd0242dc]
+description = "last Sunday in a month with five Sundays"
+
+[5232307e-d3e3-4afc-8ba6-4084ad987c00]
+description = "last Sunday in a month with four Sundays"
+
+[0bbd48e8-9773-4e81-8e71-b9a51711e3c5]
+description = "when last Wednesday in February in a leap year is the 29th"
+
+[fe0936de-7eee-4a48-88dd-66c07ab1fefc]
+description = "last Wednesday in December that is also the last day of the year"
+
+[2ccf2488-aafc-4671-a24e-2b6effe1b0e2]
+description = "when last Sunday in February in a non-leap year is not the 29th"
+
+[00c3ce9f-cf36-4b70-90d8-92b32be6830e]
+description = "when first Friday is the 7th, the last day of the first week"
diff --git a/exercises/practice/meetup/meetup.ijs b/exercises/practice/meetup/meetup.ijs
new file mode 100644
index 0000000..c30881e
--- /dev/null
+++ b/exercises/practice/meetup/meetup.ijs
@@ -0,0 +1,12 @@
+require 'general/unittest'
+
+NB. meetup=: 'You need to implement this verb.'13!:8 (55)
+
+meetup=: {{
+  'year month week dayofweek'=: y
+  teenthdays=: (year , month , ])every 13+i.7
+  '`first second third fourth teenth last' =: (0&{)`(1&{)`(2&{)`(3&{)`(,@:{~ (I.@e.)&teenthdays)`(_1&{)
+  daysinmonth=: ((year, month)&,)every >: i. (>./ @ , @: ". @ > @ calendar) year, month
+  dayofweek =: (;: 'Sunday Monday Tuesday Wednesday Thursday Friday Saturday')&i. <dayofweek
+  week~ (#~ [: (dayofweek)&=  weekday) daysinmonth
+}}
diff --git a/exercises/practice/meetup/test.ijs b/exercises/practice/meetup/test.ijs
new file mode 100644
index 0000000..0257cfc
--- /dev/null
+++ b/exercises/practice/meetup/test.ijs
@@ -0,0 +1,1245 @@
+load 'meetup.ijs'
+
+
+before_all=: monad define  
+  (]Description =: (3 : 'descriptions=: i.0')`(3 : 'descriptions=: descriptions , < y'))@.0 ''
+  (]Order       =: (3 : 'order=: i.0')`(3 : 'order=: order , < y'))@.0 ''
+  (]Task        =: (3 : 'tasks=: i.0')`(3 : 'tasks=: tasks , < y'))@.0 '' 
+)
+
+
+meetup_test_01_ignore=: 0
+test_meetup_test_01  =: monad define
+  Description@.1 ('when teenth Monday is the 13th, the first day of the teenth week')
+  Order@.1 (1)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 05 13
+  assert 2013 05 13 =&,  meetup 2013;5;'teenth';'Monday'
+)
+
+meetup_test_02_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_02  =: monad define
+  Description@.1 ('when teenth Monday is the 19th, the last day of the teenth week')
+  Order@.1 (2)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 08 19
+  assert 2013 08 19 =&,  meetup 2013;8;'teenth';'Monday'
+)
+
+meetup_test_03_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_03  =: monad define
+  Description@.1 ('when teenth Monday is some day in the middle of the teenth week')
+  Order@.1 (3)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 09 16
+  assert 2013 09 16 =&,  meetup 2013;9;'teenth';'Monday'
+)
+
+meetup_test_04_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_04  =: monad define
+  Description@.1 ('when teenth Tuesday is the 19th, the last day of the teenth week')
+  Order@.1 (4)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 03 19
+  assert 2013 03 19 =&,  meetup 2013;3;'teenth';'Tuesday'
+)
+
+meetup_test_05_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_05  =: monad define
+  Description@.1 ('when teenth Tuesday is some day in the middle of the teenth week')
+  Order@.1 (5)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 04 16
+  assert 2013 04 16 =&,  meetup 2013;4;'teenth';'Tuesday'
+)
+
+meetup_test_06_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_06  =: monad define
+  Description@.1 ('when teenth Tuesday is the 13th, the first day of the teenth week')
+  Order@.1 (6)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 08 13
+  assert 2013 08 13 =&,  meetup 2013;8;'teenth';'Tuesday'
+)
+
+meetup_test_07_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_07  =: monad define
+  Description@.1 ('when teenth Wednesday is some day in the middle of the teenth week')
+  Order@.1 (7)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 01 16
+  assert 2013 01 16 =&,  meetup 2013;1;'teenth';'Wednesday'
+)
+
+meetup_test_08_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_08  =: monad define
+  Description@.1 ('when teenth Wednesday is the 13th, the first day of the teenth week')
+  Order@.1 (8)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 02 13
+  assert 2013 02 13 =&,  meetup 2013;2;'teenth';'Wednesday'
+)
+
+meetup_test_09_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_09  =: monad define
+  Description@.1 ('when teenth Wednesday is the 19th, the last day of the teenth week')
+  Order@.1 (9)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 06 19
+  assert 2013 06 19 =&,  meetup 2013;6;'teenth';'Wednesday'
+)
+
+meetup_test_10_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_10  =: monad define
+  Description@.1 ('when teenth Thursday is some day in the middle of the teenth week')
+  Order@.1 (10)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 05 16
+  assert 2013 05 16 =&,  meetup 2013;5;'teenth';'Thursday'
+)
+
+meetup_test_11_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_11  =: monad define
+  Description@.1 ('when teenth Thursday is the 13th, the first day of the teenth week')
+  Order@.1 (11)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 06 13
+  assert 2013 06 13 =&,  meetup 2013;6;'teenth';'Thursday'
+)
+
+meetup_test_12_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_12  =: monad define
+  Description@.1 ('when teenth Thursday is the 19th, the last day of the teenth week')
+  Order@.1 (12)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 19
+  assert 2013 09 19 =&,  meetup 2013;9;'teenth';'Thursday'
+)
+
+meetup_test_13_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_13  =: monad define
+  Description@.1 ('when teenth Friday is the 19th, the last day of the teenth week')
+  Order@.1 (13)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 04 19
+  assert 2013 04 19 =&,  meetup 2013;4;'teenth';'Friday'
+)
+
+meetup_test_14_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_14  =: monad define
+  Description@.1 ('when teenth Friday is some day in the middle of the teenth week')
+  Order@.1 (14)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 08 16
+  assert 2013 08 16 =&,  meetup 2013;8;'teenth';'Friday'
+)
+
+meetup_test_15_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_15  =: monad define
+  Description@.1 ('when teenth Friday is the 13th, the first day of the teenth week')
+  Order@.1 (15)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 09 13
+  assert 2013 09 13 =&,  meetup 2013;9;'teenth';'Friday'
+)
+
+meetup_test_16_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_16  =: monad define
+  Description@.1 ('when teenth Saturday is some day in the middle of the teenth week')
+  Order@.1 (16)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 16
+  assert 2013 02 16 =&,  meetup 2013;2;'teenth';'Saturday'
+)
+
+meetup_test_17_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_17  =: monad define
+  Description@.1 ('when teenth Saturday is the 13th, the first day of the teenth week')
+  Order@.1 (17)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 04 13
+  assert 2013 04 13 =&,  meetup 2013;4;'teenth';'Saturday'
+)
+
+meetup_test_18_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_18  =: monad define
+  Description@.1 ('when teenth Saturday is the 19th, the last day of the teenth week')
+  Order@.1 (18)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 10 19
+  assert 2013 10 19 =&,  meetup 2013;10;'teenth';'Saturday'
+)
+
+meetup_test_19_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_19  =: monad define
+  Description@.1 ('when teenth Sunday is the 19th, the last day of the teenth week')
+  Order@.1 (19)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 05 19
+  assert 2013 05 19 =&,  meetup 2013;5;'teenth';'Sunday'
+)
+
+meetup_test_20_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_20  =: monad define
+  Description@.1 ('when teenth Sunday is some day in the middle of the teenth week')
+  Order@.1 (20)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 06 16
+  assert 2013 06 16 =&,  meetup 2013;6;'teenth';'Sunday'
+)
+
+meetup_test_21_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_21  =: monad define
+  Description@.1 ('when teenth Sunday is the 13th, the first day of the teenth week')
+  Order@.1 (21)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'teenth'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 10 13
+  assert 2013 10 13 =&,  meetup 2013;10;'teenth';'Sunday'
+)
+
+meetup_test_22_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_22  =: monad define
+  Description@.1 ('when first Monday is some day in the middle of the first week')
+  Order@.1 (22)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 03 04
+  assert 2013 03 04 =&,  meetup 2013;3;'first';'Monday'
+)
+
+meetup_test_23_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_23  =: monad define
+  Description@.1 ('when first Monday is the 1st, the first day of the first week')
+  Order@.1 (23)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 04 01
+  assert 2013 04 01 =&,  meetup 2013;4;'first';'Monday'
+)
+
+meetup_test_24_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_24  =: monad define
+  Description@.1 ('when first Tuesday is the 7th, the last day of the first week')
+  Order@.1 (24)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 05 07
+  assert 2013 05 07 =&,  meetup 2013;5;'first';'Tuesday'
+)
+
+meetup_test_25_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_25  =: monad define
+  Description@.1 ('when first Tuesday is some day in the middle of the first week')
+  Order@.1 (25)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 06 04
+  assert 2013 06 04 =&,  meetup 2013;6;'first';'Tuesday'
+)
+
+meetup_test_26_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_26  =: monad define
+  Description@.1 ('when first Wednesday is some day in the middle of the first week')
+  Order@.1 (26)
+
+  NB. year      =. 2013
+  NB. month     =. 7
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 07 03
+  assert 2013 07 03 =&,  meetup 2013;7;'first';'Wednesday'
+)
+
+meetup_test_27_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_27  =: monad define
+  Description@.1 ('when first Wednesday is the 7th, the last day of the first week')
+  Order@.1 (27)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 08 07
+  assert 2013 08 07 =&,  meetup 2013;8;'first';'Wednesday'
+)
+
+meetup_test_28_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_28  =: monad define
+  Description@.1 ('when first Thursday is some day in the middle of the first week')
+  Order@.1 (28)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 05
+  assert 2013 09 05 =&,  meetup 2013;9;'first';'Thursday'
+)
+
+meetup_test_29_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_29  =: monad define
+  Description@.1 ('when first Thursday is another day in the middle of the first week')
+  Order@.1 (29)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 10 03
+  assert 2013 10 03 =&,  meetup 2013;10;'first';'Thursday'
+)
+
+meetup_test_30_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_30  =: monad define
+  Description@.1 ('when first Friday is the 1st, the first day of the first week')
+  Order@.1 (30)
+
+  NB. year      =. 2013
+  NB. month     =. 11
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 11 01
+  assert 2013 11 01 =&,  meetup 2013;11;'first';'Friday'
+)
+
+meetup_test_31_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_31  =: monad define
+  Description@.1 ('when first Friday is some day in the middle of the first week')
+  Order@.1 (31)
+
+  NB. year      =. 2013
+  NB. month     =. 12
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 12 06
+  assert 2013 12 06 =&,  meetup 2013;12;'first';'Friday'
+)
+
+meetup_test_32_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_32  =: monad define
+  Description@.1 ('when first Saturday is some day in the middle of the first week')
+  Order@.1 (32)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 01 05
+  assert 2013 01 05 =&,  meetup 2013;1;'first';'Saturday'
+)
+
+meetup_test_33_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_33  =: monad define
+  Description@.1 ('when first Saturday is another day in the middle of the first week')
+  Order@.1 (33)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 02
+  assert 2013 02 02 =&,  meetup 2013;2;'first';'Saturday'
+)
+
+meetup_test_34_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_34  =: monad define
+  Description@.1 ('when first Sunday is some day in the middle of the first week')
+  Order@.1 (34)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 03 03
+  assert 2013 03 03 =&,  meetup 2013;3;'first';'Sunday'
+)
+
+meetup_test_35_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_35  =: monad define
+  Description@.1 ('when first Sunday is the 7th, the last day of the first week')
+  Order@.1 (35)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 04 07
+  assert 2013 04 07 =&,  meetup 2013;4;'first';'Sunday'
+)
+
+meetup_test_36_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_36  =: monad define
+  Description@.1 ('when second Monday is some day in the middle of the second week')
+  Order@.1 (36)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 03 11
+  assert 2013 03 11 =&,  meetup 2013;3;'second';'Monday'
+)
+
+meetup_test_37_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_37  =: monad define
+  Description@.1 ('when second Monday is the 8th, the first day of the second week')
+  Order@.1 (37)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 04 08
+  assert 2013 04 08 =&,  meetup 2013;4;'second';'Monday'
+)
+
+meetup_test_38_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_38  =: monad define
+  Description@.1 ('when second Tuesday is the 14th, the last day of the second week')
+  Order@.1 (38)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 05 14
+  assert 2013 05 14 =&,  meetup 2013;5;'second';'Tuesday'
+)
+
+meetup_test_39_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_39  =: monad define
+  Description@.1 ('when second Tuesday is some day in the middle of the second week')
+  Order@.1 (39)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 06 11
+  assert 2013 06 11 =&,  meetup 2013;6;'second';'Tuesday'
+)
+
+meetup_test_40_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_40  =: monad define
+  Description@.1 ('when second Wednesday is some day in the middle of the second week')
+  Order@.1 (40)
+
+  NB. year      =. 2013
+  NB. month     =. 7
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 07 10
+  assert 2013 07 10 =&,  meetup 2013;7;'second';'Wednesday'
+)
+
+meetup_test_41_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_41  =: monad define
+  Description@.1 ('when second Wednesday is the 14th, the last day of the second week')
+  Order@.1 (41)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 08 14
+  assert 2013 08 14 =&,  meetup 2013;8;'second';'Wednesday'
+)
+
+meetup_test_42_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_42  =: monad define
+  Description@.1 ('when second Thursday is some day in the middle of the second week')
+  Order@.1 (42)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 12
+  assert 2013 09 12 =&,  meetup 2013;9;'second';'Thursday'
+)
+
+meetup_test_43_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_43  =: monad define
+  Description@.1 ('when second Thursday is another day in the middle of the second week')
+  Order@.1 (43)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 10 10
+  assert 2013 10 10 =&,  meetup 2013;10;'second';'Thursday'
+)
+
+meetup_test_44_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_44  =: monad define
+  Description@.1 ('when second Friday is the 8th, the first day of the second week')
+  Order@.1 (44)
+
+  NB. year      =. 2013
+  NB. month     =. 11
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 11 08
+  assert 2013 11 08 =&,  meetup 2013;11;'second';'Friday'
+)
+
+meetup_test_45_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_45  =: monad define
+  Description@.1 ('when second Friday is some day in the middle of the second week')
+  Order@.1 (45)
+
+  NB. year      =. 2013
+  NB. month     =. 12
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 12 13
+  assert 2013 12 13 =&,  meetup 2013;12;'second';'Friday'
+)
+
+meetup_test_46_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_46  =: monad define
+  Description@.1 ('when second Saturday is some day in the middle of the second week')
+  Order@.1 (46)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 01 12
+  assert 2013 01 12 =&,  meetup 2013;1;'second';'Saturday'
+)
+
+meetup_test_47_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_47  =: monad define
+  Description@.1 ('when second Saturday is another day in the middle of the second week')
+  Order@.1 (47)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 09
+  assert 2013 02 09 =&,  meetup 2013;2;'second';'Saturday'
+)
+
+meetup_test_48_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_48  =: monad define
+  Description@.1 ('when second Sunday is some day in the middle of the second week')
+  Order@.1 (48)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 03 10
+  assert 2013 03 10 =&,  meetup 2013;3;'second';'Sunday'
+)
+
+meetup_test_49_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_49  =: monad define
+  Description@.1 ('when second Sunday is the 14th, the last day of the second week')
+  Order@.1 (49)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'second'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 04 14
+  assert 2013 04 14 =&,  meetup 2013;4;'second';'Sunday'
+)
+
+meetup_test_50_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_50  =: monad define
+  Description@.1 ('when third Monday is some day in the middle of the third week')
+  Order@.1 (50)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 03 18
+  assert 2013 03 18 =&,  meetup 2013;3;'third';'Monday'
+)
+
+meetup_test_51_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_51  =: monad define
+  Description@.1 ('when third Monday is the 15th, the first day of the third week')
+  Order@.1 (51)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 04 15
+  assert 2013 04 15 =&,  meetup 2013;4;'third';'Monday'
+)
+
+meetup_test_52_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_52  =: monad define
+  Description@.1 ('when third Tuesday is the 21st, the last day of the third week')
+  Order@.1 (52)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 05 21
+  assert 2013 05 21 =&,  meetup 2013;5;'third';'Tuesday'
+)
+
+meetup_test_53_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_53  =: monad define
+  Description@.1 ('when third Tuesday is some day in the middle of the third week')
+  Order@.1 (53)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 06 18
+  assert 2013 06 18 =&,  meetup 2013;6;'third';'Tuesday'
+)
+
+meetup_test_54_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_54  =: monad define
+  Description@.1 ('when third Wednesday is some day in the middle of the third week')
+  Order@.1 (54)
+
+  NB. year      =. 2013
+  NB. month     =. 7
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 07 17
+  assert 2013 07 17 =&,  meetup 2013;7;'third';'Wednesday'
+)
+
+meetup_test_55_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_55  =: monad define
+  Description@.1 ('when third Wednesday is the 21st, the last day of the third week')
+  Order@.1 (55)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 08 21
+  assert 2013 08 21 =&,  meetup 2013;8;'third';'Wednesday'
+)
+
+meetup_test_56_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_56  =: monad define
+  Description@.1 ('when third Thursday is some day in the middle of the third week')
+  Order@.1 (56)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 19
+  assert 2013 09 19 =&,  meetup 2013;9;'third';'Thursday'
+)
+
+meetup_test_57_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_57  =: monad define
+  Description@.1 ('when third Thursday is another day in the middle of the third week')
+  Order@.1 (57)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 10 17
+  assert 2013 10 17 =&,  meetup 2013;10;'third';'Thursday'
+)
+
+meetup_test_58_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_58  =: monad define
+  Description@.1 ('when third Friday is the 15th, the first day of the third week')
+  Order@.1 (58)
+
+  NB. year      =. 2013
+  NB. month     =. 11
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 11 15
+  assert 2013 11 15 =&,  meetup 2013;11;'third';'Friday'
+)
+
+meetup_test_59_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_59  =: monad define
+  Description@.1 ('when third Friday is some day in the middle of the third week')
+  Order@.1 (59)
+
+  NB. year      =. 2013
+  NB. month     =. 12
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 12 20
+  assert 2013 12 20 =&,  meetup 2013;12;'third';'Friday'
+)
+
+meetup_test_60_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_60  =: monad define
+  Description@.1 ('when third Saturday is some day in the middle of the third week')
+  Order@.1 (60)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 01 19
+  assert 2013 01 19 =&,  meetup 2013;1;'third';'Saturday'
+)
+
+meetup_test_61_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_61  =: monad define
+  Description@.1 ('when third Saturday is another day in the middle of the third week')
+  Order@.1 (61)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 16
+  assert 2013 02 16 =&,  meetup 2013;2;'third';'Saturday'
+)
+
+meetup_test_62_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_62  =: monad define
+  Description@.1 ('when third Sunday is some day in the middle of the third week')
+  Order@.1 (62)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 03 17
+  assert 2013 03 17 =&,  meetup 2013;3;'third';'Sunday'
+)
+
+meetup_test_63_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_63  =: monad define
+  Description@.1 ('when third Sunday is the 21st, the last day of the third week')
+  Order@.1 (63)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'third'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 04 21
+  assert 2013 04 21 =&,  meetup 2013;4;'third';'Sunday'
+)
+
+meetup_test_64_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_64  =: monad define
+  Description@.1 ('when fourth Monday is some day in the middle of the fourth week')
+  Order@.1 (64)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 03 25
+  assert 2013 03 25 =&,  meetup 2013;3;'fourth';'Monday'
+)
+
+meetup_test_65_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_65  =: monad define
+  Description@.1 ('when fourth Monday is the 22nd, the first day of the fourth week')
+  Order@.1 (65)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 04 22
+  assert 2013 04 22 =&,  meetup 2013;4;'fourth';'Monday'
+)
+
+meetup_test_66_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_66  =: monad define
+  Description@.1 ('when fourth Tuesday is the 28th, the last day of the fourth week')
+  Order@.1 (66)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 05 28
+  assert 2013 05 28 =&,  meetup 2013;5;'fourth';'Tuesday'
+)
+
+meetup_test_67_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_67  =: monad define
+  Description@.1 ('when fourth Tuesday is some day in the middle of the fourth week')
+  Order@.1 (67)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 06 25
+  assert 2013 06 25 =&,  meetup 2013;6;'fourth';'Tuesday'
+)
+
+meetup_test_68_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_68  =: monad define
+  Description@.1 ('when fourth Wednesday is some day in the middle of the fourth week')
+  Order@.1 (68)
+
+  NB. year      =. 2013
+  NB. month     =. 7
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 07 24
+  assert 2013 07 24 =&,  meetup 2013;7;'fourth';'Wednesday'
+)
+
+meetup_test_69_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_69  =: monad define
+  Description@.1 ('when fourth Wednesday is the 28th, the last day of the fourth week')
+  Order@.1 (69)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 08 28
+  assert 2013 08 28 =&,  meetup 2013;8;'fourth';'Wednesday'
+)
+
+meetup_test_70_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_70  =: monad define
+  Description@.1 ('when fourth Thursday is some day in the middle of the fourth week')
+  Order@.1 (70)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 26
+  assert 2013 09 26 =&,  meetup 2013;9;'fourth';'Thursday'
+)
+
+meetup_test_71_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_71  =: monad define
+  Description@.1 ('when fourth Thursday is another day in the middle of the fourth week')
+  Order@.1 (71)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 10 24
+  assert 2013 10 24 =&,  meetup 2013;10;'fourth';'Thursday'
+)
+
+meetup_test_72_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_72  =: monad define
+  Description@.1 ('when fourth Friday is the 22nd, the first day of the fourth week')
+  Order@.1 (72)
+
+  NB. year      =. 2013
+  NB. month     =. 11
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 11 22
+  assert 2013 11 22 =&,  meetup 2013;11;'fourth';'Friday'
+)
+
+meetup_test_73_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_73  =: monad define
+  Description@.1 ('when fourth Friday is some day in the middle of the fourth week')
+  Order@.1 (73)
+
+  NB. year      =. 2013
+  NB. month     =. 12
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 12 27
+  assert 2013 12 27 =&,  meetup 2013;12;'fourth';'Friday'
+)
+
+meetup_test_74_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_74  =: monad define
+  Description@.1 ('when fourth Saturday is some day in the middle of the fourth week')
+  Order@.1 (74)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 01 26
+  assert 2013 01 26 =&,  meetup 2013;1;'fourth';'Saturday'
+)
+
+meetup_test_75_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_75  =: monad define
+  Description@.1 ('when fourth Saturday is another day in the middle of the fourth week')
+  Order@.1 (75)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 23
+  assert 2013 02 23 =&,  meetup 2013;2;'fourth';'Saturday'
+)
+
+meetup_test_76_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_76  =: monad define
+  Description@.1 ('when fourth Sunday is some day in the middle of the fourth week')
+  Order@.1 (76)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 03 24
+  assert 2013 03 24 =&,  meetup 2013;3;'fourth';'Sunday'
+)
+
+meetup_test_77_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_77  =: monad define
+  Description@.1 ('when fourth Sunday is the 28th, the last day of the fourth week')
+  Order@.1 (77)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'fourth'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 04 28
+  assert 2013 04 28 =&,  meetup 2013;4;'fourth';'Sunday'
+)
+
+meetup_test_78_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_78  =: monad define
+  Description@.1 ('last Monday in a month      with four Mondays')
+  Order@.1 (78)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 03 25
+  assert 2013 03 25 =&,  meetup 2013;3;'last';'Monday'
+)
+
+meetup_test_79_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_79  =: monad define
+  Description@.1 ('last Monday in a month      with five Mondays')
+  Order@.1 (79)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Monday'
+  NB. expected  =. 2013 04 29
+  assert 2013 04 29 =&,  meetup 2013;4;'last';'Monday'
+)
+
+meetup_test_80_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_80  =: monad define
+  Description@.1 ('last Tuesday in a month      with four Tuesdays')
+  Order@.1 (80)
+
+  NB. year      =. 2013
+  NB. month     =. 5
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 05 28
+  assert 2013 05 28 =&,  meetup 2013;5;'last';'Tuesday'
+)
+
+meetup_test_81_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_81  =: monad define
+  Description@.1 ('last Tuesday in another month      with four Tuesdays')
+  Order@.1 (81)
+
+  NB. year      =. 2013
+  NB. month     =. 6
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Tuesday'
+  NB. expected  =. 2013 06 25
+  assert 2013 06 25 =&,  meetup 2013;6;'last';'Tuesday'
+)
+
+meetup_test_82_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_82  =: monad define
+  Description@.1 ('last Wednesday in a month      with five Wednesdays')
+  Order@.1 (82)
+
+  NB. year      =. 2013
+  NB. month     =. 7
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 07 31
+  assert 2013 07 31 =&,  meetup 2013;7;'last';'Wednesday'
+)
+
+meetup_test_83_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_83  =: monad define
+  Description@.1 ('last Wednesday in a month      with four Wednesdays')
+  Order@.1 (83)
+
+  NB. year      =. 2013
+  NB. month     =. 8
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2013 08 28
+  assert 2013 08 28 =&,  meetup 2013;8;'last';'Wednesday'
+)
+
+meetup_test_84_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_84  =: monad define
+  Description@.1 ('last Thursday in a month      with four Thursdays')
+  Order@.1 (84)
+
+  NB. year      =. 2013
+  NB. month     =. 9
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 09 26
+  assert 2013 09 26 =&,  meetup 2013;9;'last';'Thursday'
+)
+
+meetup_test_85_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_85  =: monad define
+  Description@.1 ('last Thursday in a month      with five Thursdays')
+  Order@.1 (85)
+
+  NB. year      =. 2013
+  NB. month     =. 10
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Thursday'
+  NB. expected  =. 2013 10 31
+  assert 2013 10 31 =&,  meetup 2013;10;'last';'Thursday'
+)
+
+meetup_test_86_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_86  =: monad define
+  Description@.1 ('last Friday in a month      with five Fridays')
+  Order@.1 (86)
+
+  NB. year      =. 2013
+  NB. month     =. 11
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 11 29
+  assert 2013 11 29 =&,  meetup 2013;11;'last';'Friday'
+)
+
+meetup_test_87_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_87  =: monad define
+  Description@.1 ('last Friday in a month      with four Fridays')
+  Order@.1 (87)
+
+  NB. year      =. 2013
+  NB. month     =. 12
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2013 12 27
+  assert 2013 12 27 =&,  meetup 2013;12;'last';'Friday'
+)
+
+meetup_test_88_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_88  =: monad define
+  Description@.1 ('last Saturday in a month      with four Saturdays')
+  Order@.1 (88)
+
+  NB. year      =. 2013
+  NB. month     =. 1
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 01 26
+  assert 2013 01 26 =&,  meetup 2013;1;'last';'Saturday'
+)
+
+meetup_test_89_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_89  =: monad define
+  Description@.1 ('last Saturday in another month      with four Saturdays')
+  Order@.1 (89)
+
+  NB. year      =. 2013
+  NB. month     =. 2
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Saturday'
+  NB. expected  =. 2013 02 23
+  assert 2013 02 23 =&,  meetup 2013;2;'last';'Saturday'
+)
+
+meetup_test_90_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_90  =: monad define
+  Description@.1 ('last Sunday in a month      with five Sundays')
+  Order@.1 (90)
+
+  NB. year      =. 2013
+  NB. month     =. 3
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 03 31
+  assert 2013 03 31 =&,  meetup 2013;3;'last';'Sunday'
+)
+
+meetup_test_91_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_91  =: monad define
+  Description@.1 ('last Sunday in a month      with four Sundays')
+  Order@.1 (91)
+
+  NB. year      =. 2013
+  NB. month     =. 4
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2013 04 28
+  assert 2013 04 28 =&,  meetup 2013;4;'last';'Sunday'
+)
+
+meetup_test_92_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_92  =: monad define
+  Description@.1 ('when last Wednesday in February in a leap year       is the 29th')
+  Order@.1 (92)
+
+  NB. year      =. 2012
+  NB. month     =. 2
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2012 02 29
+  assert 2012 02 29 =&,  meetup 2012;2;'last';'Wednesday'
+)
+
+meetup_test_93_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_93  =: monad define
+  Description@.1 ('last Wednesday in December that is also the last day of the year      ')
+  Order@.1 (93)
+
+  NB. year      =. 2014
+  NB. month     =. 12
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Wednesday'
+  NB. expected  =. 2014 12 31
+  assert 2014 12 31 =&,  meetup 2014;12;'last';'Wednesday'
+)
+
+meetup_test_94_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_94  =: monad define
+  Description@.1 ('when last Sunday in February in a non-leap year       is not the 29th')
+  Order@.1 (94)
+
+  NB. year      =. 2015
+  NB. month     =. 2
+  NB. week      =. 'last'
+  NB. dayofweek =. 'Sunday'
+  NB. expected  =. 2015 02 22
+  assert 2015 02 22 =&,  meetup 2015;2;'last';'Sunday'
+)
+
+meetup_test_95_ignore=: 1 NB. Change this value to 0 to run this test
+test_meetup_test_95  =: monad define
+  Description@.1 ('when first Friday is the 7th, the last day of the first week')
+  Order@.1 (95)
+
+  NB. year      =. 2012
+  NB. month     =. 12
+  NB. week      =. 'first'
+  NB. dayofweek =. 'Friday'
+  NB. expected  =. 2012 12 07
+  assert 2012 12 07 =&,  meetup 2012;12;'first';'Friday'
+)
+