#lang sml
structure LongVId	= LongIdFn(structure Id    = VId
				   structure StrId = StrId)