method get_choice = (
        if(l_w=[]) then (
                !l0_rec
        )
        else (
        let l_m = List.map
                        (fun w1 -> match w1 with None -> ""
                                | Some obj_box -> obj_box#get_choice)
                        (List.rev l_w)
        in 
        if(List.mem "" l_m) then ""
        else if(l_m=[]) then ""
        else if(((car decomp_message)="scrypt"|| ((car decomp_message)="crypt"))
        then ((car decomp_message)^"("^(cadr l_m)^","^(car l_m)^")")
        else ((car decomp_message)^"("^(list2string "," l_m)^")")
        )
 )