{
	s = $0
	gsub(" ","_",s)
	gsub("#","",s)
	Data[++NumLines] = s
}

END {
	printf "(deftable lqn"
		
	numcols = split(Data[1],col,",")

	#print column names
	for (i=1; i<=numcols-2; i++) {
		split(col[i],attrval,"=")
		printf " "attrval[1]
	}
	print " $#COST $#TIME)"
	
	#print row data	
	for (i=1; i<=NumLines; i++) {
		n = split(Data[i],columns,",")
	
		split(columns[n],tmp,"=")	
		if (tmp[2] != "") {	
			printf "(!"
			for (c=1; c<=n; c++) {
				split(columns[c],attrval,"=")
				printf " "attrval[2]
			}
			print ")"
		}
	}
}