#lang sml structure StrId = IdFn()