let s = S (0, "FooBaR")
let test = print_string ("Construction succeeds.\n")