format STDOUT_TOP =
Prod    Type     Price
.
format STDOUT = 
@<<<<<<<@<<<<<<<<@>>>>>>>
$prod, $type, $price
.