INIT()
 Set x = "Hello"
 Write x,!
 Write 1 + 2,!
 
 Write $Length(x),!
 
 Set y = ##class(PD.Person).%New()
 Set z = y.Add(3,7)
 w z,!
 
 w "------"
 set i = 5
 w i,!
 set i = -i
 w i,!
 set i = +i
 w i,!
 Write +"32 dollars and 64 cents"        // 32
 
 Quit x
 ;
t1
 Set y = ##class(PD.Person).%New()
 write:y.Name="" "Initial Name is empty",!
 write:y.Name'="" "Initial Name is not empty",!
 write:y.Name=$c(0) "Initial Name is null",!
 write:y.Name'=$c(0) "Initial Name is not null",!
 Set y.Name = $char(0)
 write "---",!
 write:y.Name="" "Name is empty",!
 write:y.Name'="" "Name is not empty",!
 write:y.Name=$c(0) "Name is null",!
 write:y.Name'=$c(0) "Name is not null",!