C>let tst =  fun message ->
C>                match message with
C>                | To, msg       ->  printf "tuple"
C>                | msg1          ->  printf "object"
C>