Driver code
print ( " Subtraction ▁ is ▁ " . sub ( 4 , -2 ) . " STRNEWLINE " ) ; print ( " Product ▁ is ▁ " . mul ( -9 , 6 ) . " STRNEWLINE " ) ; list ( $ a , $ b ) = array ( 8 , 2 ) ; if ( $ b ) print ( " Division ▁ is ▁ " . division ( $ a , $ b ) ) ; else print ( " Exception ▁ : - ▁ Divide ▁ by ▁ 0" ) ; ? >