product(item1,3000,4.8,20). product(item2,1800,4.2,200). product(item3,5000,4.9,5). product(item4,2500,4.5,80).
Standard input is empty
Standard output is empty
ERROR: '$runtoplevel'/0: Undefined procedure: program/0 Exception: (3) program ? EOF: exit