let r = ref 0
let test = print_string ("Allocate went well.\n")