#lang planet chongkai/sml

functor B ( val f : string -> string )  = 
  struct val f = f 
  end