let get_concrete_value_of_return (f:string) =
  let kf = Globals.Functions.find_by_name f in
  let rstmt = Kernel_function.find_return kf in
  match rstmt.skind with
    | Return (Some (e),_) -> e.enode
    | Block (b) ->
        begin
          let s=(List.hd (List.rev b.bstmts)) in
          match s.skind with
            | Return (Some (e),_) -> e.enode
            | _ -> Aorai_option.fatal "The stmt %d have to be a return of the function %s, but it is not a well formed stmt." rstmt.sid f
        end
    | _ -> Aorai_option.fatal "The stmt %d have to be a return of the function %s, but it is not a well formed stmt." rstmt.sid f