1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
macro identity/1 <letter \1> : "\1" end macro # (macro (@ 1 0-5) ‘identity/1’ # (.inner # (map (@ 2 2-2) # (.sequence # (keys (@ 2 2-13) ‘<letter \1>’) # ) # (.result # (string (@ 2 16-20) ‘"\1"’) # ) # ) # ) # )