                 WHEN $2
              END-EVALUATE.
             """
-#
+
   'Digita PERFORM UNTIL EXIT':
     'prefix': 'PU'
     'body': """

                $1
            END-PERFORM.
            """
#
  'Digita PERFORM VARYING':
     'prefix': 'PB'
     'body': """
     PERFORM                WITH TEST BEFORE
        VARYING             $1 FROM $2 BY $3
           UNTIL            $4
        $5
     END-PERFORM.$6
     """
#'.source.cobol':
  'Digita PERFORM VARYING':
     'prefix': 'PB'
     'body': """

     END-PERFORM.$6
     """

  'Digita PERFORM VARYING':
     'prefix': 'PB'
     'body': """
     PERFORM                WITH TEST BEFORE
        VARYING             $1 FROM $2 BY $3
           UNTIL            $4
        $5
     END-PERFORM.$6
     """

  'Digita EXIT PARAGRAPH':
     'prefix': 'XH'
     'body': """
