day5←{
     p1←{nt ← 'ab' 'cd' 'pq' 'xy'
         nn ← {~∨/nt{∨/⍺⍷⍵}¨⊂⍵}
         ma ← {∨/2=/⍵}
         vc ← {3≤1⊥⍵∊'aeiou'}
         +/(nn ∧ ma ∧ vc)¨⍵}

     p2←{pal    ← {∨/(⌽≡⊢)¨3,/⍵}        ⍝ palindrome
         twice  ← {(≢⍵)≠(≢∪⍵)}          ⍝ at least twice
         nolap  ← {∧/2≢/⍵}              ⍝ no overlap
         twilap ← {∨/(twice∧nolap)2,/⍵} ⍝ at least twice no overlap
         fiar   ← {∨/{∧/⍵≡¨⊃⍵}¨4,/⍵}    ⍝ [f]our [i]n [a] [r]ow
         +/(pal ∧ (twilap ∨ fiar))¨⍵}
     (p1,p2) ⍵

 }