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)^")")
)
)