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