let convert_bin op =
        match op with
          ADD -> "add"
        | SUB -> "sub"
        | MUL -> "mul"
        | DIV -> "div"
        | MOD -> "mod"
        | AND -> "and"
        | OR -> "or"
        | BAND -> "band"
        | BOR -> "bor"
        | XOR -> "xor"
        | SHL -> "shl"
        | SHR -> "shr"
        | EQ -> "eq"
        | NE -> "ne"
        | LT -> "lt"
        | GT -> "gt"
        | LE -> "le"
        | GE -> "ge"
        | ASSIGN -> "set"
        | ADD_ASSIGN -> "set_add"
        | SUB_ASSIGN -> "set_sub"
        | MUL_ASSIGN -> "set_mul"
        | DIV_ASSIGN -> "set_div"
        | MOD_ASSIGN -> "set_mod"
        | BAND_ASSIGN -> "set_band"
        | BOR_ASSIGN -> "set_bor"
        | XOR_ASSIGN -> "set_xor"
        | SHL_ASSIGN -> "set_shl"
        | SHR_ASSIGN -> "set_shr"

This web site is published by Informatikbüro Gerd Stolpmann