Day 4, idiomatic is partially done

contracts/2020-04.rock

@@ -0,0 +1,102 @@
+Above takes One and Two and Three
+  Burn Two
+  If Two is as strong as One and Three is as strong as Two
+    Give back 1
+  (end if)
+  Give back 0
+(end function)
+Complete Passports is 0
+Valid Passports is 0
+Test takes Part
+  Cut Part into Field with ":"
+  Roll Field into Name
+  Roll Field into Value
+  If Name is "cid"
+    Give back 1
+  (end if)
+  Let Requiredfieldsfound be with 1
+  If Name is "byr"
+    Give back Above taking 1920, Value, 2002
+  (end if)
+  If Name is "iyr"
+    Give back Above taking 2010, Value, 2020
+  (end if)
+  If Name is "eyr"
+    Give back Above taking 2020, Value, 2030
+  (end if)
+  If Name is "hgt"
+    Shatter Value into Height Metric with "cm"
+    Shatter Value into Height Imperial with "in"
+    If Height Imperial is 2
+      Give back Above taking 59, Roll Height Imperial, 76
+    (end if)
+    If Height Metric is 2
+      Give back Above taking 150, Roll Height Metric, 193
+    (end if)
+  (end if)
+  If Name is "hcl"
+    Shatter Value
+    Roll Value into Scratch
+    If "#" is Scratch and Value is 6
+      Roll Value into Scratch
+      Until Scratch is nothing
+        Burn Scratch with 16
+        Let Scratch be "0" with Scratch
+        If 1 ain't Above taking 0, Scratch, 15
+          Give back 0
+        (end if)
+        Roll Value into Scratch
+      (end until)
+      Give back 1
+    (end if)
+  (end if)
+  If Name is "ecl"
+    If value is "amb" or value is "blu" or value is "brn"
+      Give back 1
+    (end if)
+    If value is "gry" or value is "grn"
+      Give back 1
+    (end if)
+    If value is "hzl" or value is "oth"
+      Give back 1
+    (end if)
+  (end if)
+  If Name is "pid"
+    Shatter Value
+    If Value ain't 9
+      Give back 0
+    (end if)
+    Roll Value into Scratch
+    Until Scratch is nothing
+      If 1 ain't Above taking 0, Scratch, 9
+        Give back 0
+      (end if)
+      Roll Value into Scratch
+    (end until)
+    Give back 1
+  (end if)
+  Give back 0
+(end function)
+Rock Input
+Listen to Line
+Until Line is gone
+  Requiredfieldsfound is 0
+  Stillvalid is 1
+  Until Line is gone
+    Cut Line into Parts with " "
+    Roll Parts into Part
+    Until Part is gone
+      Let Stillvalid be of Test taking Part
+      Roll Parts into Part
+    (end until)
+    Listen to Line
+  (end until)
+  If Requiredfieldsfound is 7
+    Build Complete Passports up
+    If Stillvalid is 1
+      Build Valid Passports up
+    (end if)
+  (end if)
+  Listen to Line
+(end until)
+Say Complete Passports with " " with Valid Passports

lyrics/2020-04.rock

@@ -0,0 +1,112 @@
+The king takes gold and land and fealty
+  Burn fealty
+  If fealty is as strong as gold and land is as strong as fealty
+    Give back a little
+
+  Give back my freedom
+
+My freedom's slipping
+Build it up, up
+A little is sufficient
+Build it up
+
+Burn 32 into your example
+Burn 58 into play
+(1 2 9 6 15 16 98-b 99-c 101-e)
+
+Liberation takes work
+  Cut work with play
+  Roll work into the day
+  Roll work into your life
+  If the day is "cid"
+    Give back a little
+
+  Let authority be with 1
+  If the day is "byr"
+    Give back the king taking 1920 & 2002 & your life
+
+  If the day is "iyr"
+    Give back the king taking 2010 & 2020 & your life
+
+  If the day is "eyr"
+    Give back the king taking 2020 & 2030 & your life
+
+  If the day is "hgt"
+    Shatter your life into a tapestry with "cm"
+    Shatter your life into a constellation with "in"
+    If a constellation is 2
+      Give back the king taking 59 & 76, roll a constellation
+
+    If a tapestry is 2
+      Give back the king taking 150 & 193, roll a tapestry
+
+
+  If the day is "hcl"
+    Shatter your life
+    Roll your life into focus
+    If "#" is focus and your life is 6
+      Roll your life into focus
+      Until focus is nothing
+        Burn focus with 16
+        Let focus be "0" with focus
+        If 1 ain't the king taking 0, 15, focus
+          Give back my freedom
+    
+        Roll your life into focus
+  
+      Give back a little
+
+
+  If the day is "ecl"
+    If your life is "amb" or your life is "blu" or your life is "brn"
+      Give back a little
+
+    If your life is "gry" or your life is "grn"
+      Give back a little
+
+    If your life is "hzl" or your life is "oth"
+      Give back a little
+
+
+  If the day is "pid"
+    Shatter your life
+    If your life ain't 9
+      Give back my freedom
+
+    Roll your life into purpose
+    Until purpose is nothing
+      If 1 ain't the king taking 0, 9, purpose
+        Give back my freedom
+  
+      Roll your life into purpose
+
+    Give back a little
+
+  Give back my freedom
+
+Defiance is nothing
+Sedition is productive
+Listen to this
+While it ain't gone,
+  authority is illusory--
+  The story is deconstructed
+  Knock it down, down
+  Until this is gone
+    Cut this into the narrative with your example
+    Roll the narrative into action
+    Until it is gone
+      Let the story be of liberation taking action
+      Roll the narrative into action
+
+    Listen to this
+
+  If authority is 7
+    Build defiance up
+    If the story is 1
+      Build sedition up
+
+
+  Listen to this
+
+Shout defiance
+Whisper sedition