#!/bin/rc
rfork e

fn cvt {
	ssam '
	,x,.*\n, v,^(/\*)?///, c,\n,
	,x,\n\n\n+, c,\n\n,
	,x,^(/\*)?/// ?, c,,

	,x,^#.*\n, a,\n,
	,x,<br />, c,,
	,x,~+[cC]?, c,\n```\n,
	,x,.*\|.*\n\n.*\|.*\n, x,\n\n, c,\n,'
}

fls=$*
if(~ $#fls 0)
	fls=/fd/0
for(f in $fls)
	cvt <$f