eval(readFile('Compiled_JavaScript_Compiler'))

ometa EJSParser <: JSParser {
  isKeyword :x = ?(x == `valof)
               | ?(x == `resultis) 
               | super(`isKeyword, x),
  expr         = "valof" "{" srcElems:ss "resultis" expr:e sc "}" -> [`valof, ss, e]     
}

ometa EJSTranslator <: JSTranslator {
  valof :ss :e -> ('(function () {' + ss +  '\n return e;')')
  begin    (trans:x
              ( (?(x[x.length - 1] == '}') | end) -> x
              | empty                             -> (x  + ';')
              )
           )*:xs                         
}