datatype message = 
    GetData 
  | GetLink;

datatype response = 
    Data of string 
  | Object of message -> response;

fun node data link GetData = Data data
  | node data link GetLink = Object link;

fun null _ = Data "null";