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