uses
  Toon.Format;

var
  Encoder: TToonEncoder;
  Decoder: TToonDecoder;
  JsonValue: TJSONValue;
  ToonStr: string;
begin
  // Create encoder
  Encoder := TToonEncoder.Create;
  try
    // Simple object
    JsonValue := TJSONObject.ParseJSONValue('{"name": "Alice", "age": 30}');
    try
      ToonStr := Encoder.Encode(JsonValue);
      // name: Alice
      // age: 30
    finally
      JsonValue.Free;
    end;
  finally
    Encoder.Free;
  end;

  // Create decoder
  Decoder := TToonDecoder.Create;
  try
    // Decode back to JSON
    JsonValue := Decoder.Decode('name: Alice' + sLineBreak + 'age: 30');
    try
      // Use JsonValue...
    finally
      JsonValue.Free;
    end;
  finally
    Decoder.Free;
  end;
end;

TToonEncoder = class
public
  constructor Create(AOptions: TToonEncodeOptions = nil);
  destructor Destroy; override;

  function Encode(Value: TJSONValue): string;

  property Options: TToonEncodeOptions read FOptions write FOptions;
end;

TToonDecoder = class
public
  constructor Create(AOptions: TToonDecodeOptions = nil);
  destructor Destroy; override;

  function Decode(const Input: string): TJSONValue;

  property Options: TToonDecodeOptions read FOptions write FOptions;
end;

// Encoding options
TToonEncodeOptions = class
  property Indent: Integer;       // Spaces per level (default: 2)
  property Delimiter: TDelimiter; // comma, tab, or pipe (default: comma)
  property LengthMarker: Boolean; // Prefix array lengths with # (default: False)
end;

// Decoding options
TToonDecodeOptions = class
  property Indent: Integer;   // Expected indent size (default: 2)
  property Strict: Boolean;   // Validate syntax (default: True)
end;

name: Alice
age: 30
email: alice@example.com

[3]: 1,2,3

[2,]{id,name,active}:
  1,Alice,true
  2,Bob,false

[3]:
  - type: user
    id: 1
  - 42
  - hello world