#!/bin/rc

cat $* | ssam ', x/\n[a-zA-Z0-9_]+\(.*\)\n{\n}\n/ x/\(.*\)/ {
			t +1
			+1 a/\n/
		}
		, x/\n\(.*\)\n/ {
			x/[a-zA-Z0-9_]+[,)]/ {
				i/USED(/
				x/,/c/)/
			}
		}
		, x/\n{\n\(.*\)\n/ x/\(.*/ s/\)/);/g
		, x/\n{\n\(.*/ x/\(.*/ y/USED\([a-zA-Z0-9_]*\);/c/\n	/
		, x/\n{\n\n/c/\n{\n/
		, x/\n	\n}\n/c/\n}\n/
		,p'