An ML Implementation of Subtyping