let tag s = create (`Tag s)