kill(all)$

van=facebook.com/LearningCalculus                                     $

infix("p");

"p" (a,b):=(a*b*5);

for i: 1 thru 9 do print ("answer ", i, "+", i, "=", i p i);