#!/usr/bin/env perl
while(<>){
    if (m/PRIM\s*\(\"(.*?)\"\s*,\s*(.*?)\s*[,\)]/) {print "ADD_PRIMITIVE(\"$1\",$2)\n";}
}