util.sml:  let val parts = Pathname.explodePath path
