Change subprograms Close as primitives not for compatiblity
Reformat