::  the comment "::  code belongs here" indicates that one or more lines of code are needed to make this section of the program work.
|=  raw=tape
=<
=.  raw  (cuss raw)
(convert raw)
|%
:: the latest and greatest rapper
++  mcelem
  |=  l=@t
  ?|
    &((gte l 'A') (lte l 'Z'))
    &((gte l '0') (lte l '9'))
  ==
++  convert
  |=  m=tape
  ^-  tape
  %-  zing
  %+  turn  m
  |=  l=@t
  ?:  =(l ' ')
    "[_]"
  ?:  (mcelem l)
    ~[' ' (~(got by table) l) ' ']
  ~['[' l ']']
++  table
  %-  my
  :~  :-  'A'  '.-'
      :-  'B'  '-...'
      :-  'C'  '-.-.'
      :-  'D'  '-..'
      :-  'E'  '.'
      :-  'F'  '..-.'
      :-  'G'  '--.'
      :-  'H'  '....'
      :-  'I'  '..'
      :-  'J'  '.---'
      :-  'K'  '-.-'
      :-  'L'  '.-..'
      :-  'M'  '--'
      :-  'N'  '-.'
      :-  'O'  '---'
      :-  'P'  '.--.'
      :-  'Q'  '--.-'
      :-  'R'  '.-.'
      :-  'S'  '...'
      :-  'T'  '-'
      :-  'U'  '..-'
      :-  'V'  '...-'
      :-  'W'  '.--'
      :-  'X'  '-..-'
      :-  'Y'  '-.--'
      :-  'Z'  '--..'
      :-  '0'  '-----'
      :-  '1'  '.----'
      :-  '2'  '..---'
      :-  '3'  '...--'
      :-  '4'  '....-'
      :-  '5'  '.....'
      :-  '6'  '-....'
      :-  '7'  '--...'
      :-  '8'  '---..'
      :-  '9'  '----.'
  ==
--