punkty do: [:each |
        pkty := self applyHistory: each. " zakłądam że pusta historia zwróci 1 elementowy spacer"
        pkty do: b.
    ].

(blokAnd = nil) ifFalse :[
    pkty := blokAnd value: ostatni przetworzony punkt. "a moze pierwszy punkt z elementów, w sumie nie wiem co przekazywałem, w sumie już nie wiem co powinno być przekazane :p"
    [ pkty = nil ] whileFalse: [
        pkty := self aplyHistory pkty.
        pkty: blokAnd value:punkt.
    ]
]
doklejone do: [:spacer |
   spacer do: b
]