let
print_tag_value (tag,value) = sprintf
"%s:%s"
tag value