program new;
begin
  GetSettingValueDef('Testme/wat','Yo wat');
  GetSettingValueDef('Testme/wat2','Yo wat2');
  Writeln(GetSettingValue('Testme/wat'));
  if KeyIsDirectory('Testme') then
    Writeln('Testme has atleast one child!');
  if KeyIsSetting('Testme/wat') then
    writeln('wat exists in the parent Testme!');
  DeleteSetting('Testme/wat');
  Writeln(GetSettingValue('Testme/wat2'));
  Writeln(GetSettingValue('Testme/wat'));
  writeln(DeleteSubSettings('Testme'));
  if KeyIsSetting('Testme') then
    writeln('Testme is a key now!');
end.