1 define operator "†(\w+)" as call "printType" with "name", "%1";

     2 define operator "“(.*?)”" as call "ucase" with "text", "%1";

     3 

     4 function "ucase" {

     5     param "text";

     6 

     7     > «translate(substring($text, 1, 1), 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')»

     8     > «substring($text, 2)»

     9 }

    10 

    11 function "printType" {

    12     param "name";

    13 

    14     choose {

    15         when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#UnlimitedNatural"'

    16             > INTEGER

    17         when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#String"'

    18             > VARCHAR

    19     }

    20 }