#lang sml
structure LongTyCon	= LongIdFn(structure Id    = TyCon
				   structure StrId = StrId)