unit snake_fields_m;

interface

type
    snakeStatePtr = ^snakeState;

    snakeState = record
        crazyField1: boolean;
        crazyField2: boolean;
        crazyField3: boolean;
    end;

implementation
end.