String subclass: StringStat [

    stringetSzamol := 0.
    d := Dictionary new.
    |stringekSzama karakterekSzama|


    init[
    stringekSzama  := 0.
    karakterekSzama  := 0.

    stringetSzamol := stringetSzamol+1.
    ^self.
    ]


    getStat: ch [

    x := d at: ch ifAbsent: [-1].
    ^x.
    ]

    +masik [
    stringekSzama := stringekSzama+1.
    karakterekSzama := karakterekSzama + (masik size).
    masik do: [:a | d at: a put: (d at: a ifAbsent: [0])+1.].

    d printNl.
    ]

    printOn: stream [
        karakterekSzama printNl.
        stringekSzama printNl.
    ]

]

StringStat class extend[

    new[
        |obj| obj := super new.
        obj init .
        ^obj.
    ]



]




SStat := StringStat new.
SStat printNl.
SStat + 'alma'.
SStat printNl.
SStat getStat: $a.