let create_fd_symbol (symbol: symbol) : symbol = create_symbol FD_Symbol ("__fd_s_" ^ (name symbol)) (name symbol) 0