addToLP: arg | carry nv newValue |
carry <- 0.
newValue <- List new.
values with: arg values pad: 0 do:
[:lv :rv | nv <- lv + rv + carry.
carry <- nv quo: 100.
newValue add: (nv rem: 100)].
(carry = 0) ifFalse: [ newValue add: carry].
^ LargePositive new: newValue asByteArray