⎕FR←1287⋄⎕PP←34⋄⎕IO←0⋄41|6*⍳41
1 6 36 11 25 27 39 29 10 19 32 28 4 24 21 3 18 26 33 34 40 35 5 30 16 14 2 12 31 22 9 13 37 17 20 38 23 15 0 0 0

      {{⍵⊃⍨⌊.5×≢⍵}a/⍨⍵=×/¨a←,⍳2/⍵}40
5 8

⋄ ('[aeiouAEIOU]'⎕R {'ub',⍵.Match}) 'I am a good example'

@brgal
┌→──────────────────────────────────┐
│ubI ubam uba guboubod ubexubamplube│
└───────────────────────────────────┘

 ⋄{¯1↓↑({1=⍺∊'aeiouAEIOU':'ub',⍺,⍵ ⋄ ⍺,⍵}/⍵,' ')} 'I am a good example'

      ⋄{¯1↓↑({1=⍺∊'aeiouAEIOU':'ub',⍺,⍵ ⋄ ⍺,⍵}/⍵,' ')} 'I am a good example'
ubI ubam uba guboubod ubexubamplube

@ngn
┌→──┐
│5 8│
└~──┘

      ⎕IO←0⋄{∊⍵,⍨⍪⍬ 'ub'[⍵∊'aeiouAEIOU']}'I am a good example'
ubI ubam uba guboubod ubexubamplube

:Namespace Contest2019
AboutMe←Reaction←,⊂''
:Namespace Problems
⎕io←0⋄Grille←{⍵[⍸' '=⍺]}⋄TransEnc←{∊(⍋⍺)⌷¨⊂⍉(⍵,¯1/⍺)⍴⍨⌽⌈÷⍨\≢¨⍺⍵}⋄TransDec←{,⍉↑(⍋⍋⍺)⌷¨⊂(⍵,¯1/⍺)⍴⍨⌈÷⍨\≢¨⍺⍵}
J←⎕a~'J'⋄TapEnc←{1↓'*'\⍨,0,⍪,⍉1+5 5⊤J⍳⍵}⋄TapDec←{J[5⊥⍉(⊢⍴⍨2,⍨2÷⍨≢)¯1+≢¨⍵⊆⍨⍵='*']}
V←'[aeiou]'⋄UbbiDubbi←V⎕r'ub&'⍠1⋄Rovarspraket←V'[a-z]'⎕r'&' '&o&'⍠1⋄PigLatin←(∊3⍴'\b'V)'((?=\w)[^aeiou]*)(\w*)'⎕r'&way' '\2\1ay'⍠1
AbbreviateIPv6←{1↓'x'~⍨'::'⎕r':0:'⍣≡':::+(.*)'⎕r':x:\1'⊢':0+'⎕r':'⊢':',⍵}⋄ExpandIPv6←{1↓':0+([^:]{4})'⎕r':\1'⊢':'⎕r':0000'⊢':','::'⎕r(':'⍴⍨9-+/⍵=':')⊢⍵}

```
ri
1 15 19 29 34 36 41 46 50 65 68 75 79 84 86 91 99
      rs
┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬────┬─────┬─────┐
│15 84│50 79│41 68│19 86│65 99│15 75│34 36│1 91│29 46│15 99│
└─────┴─────┴─────┴─────┴─────┴─────┴─────┴────┴─────┴─────┘
```