#lang sml structure LongStrId = LongIdFn(structure Id = StrId structure StrId = StrId)