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