let get_attribute node name =
    try node >>> get name >>> as_string with _ -> failwith "get_attribute"