Class LargePositive

multByLP: arg | r a b c|

	r <- List new.

	values reverseDo: [:e | r <- ((LargePositive new: (r addFirst: 0)) + (arg * e)) values asList ].

	^ LargePositive new: r asByteArray