quadMultiply: i1 and: i2

"This method multiplies the given numbers by each other
and the result by 4."
| mul |
mul := i1 * i2.
^mul * 4