test/functor/A-functor.ss
#lang planet chongkai/sml

functor A() = S