literate C by nooodl(test)

s = $<.read.split("\n")\x0d
\x0d
def f(line)\x0d
  return line[1..-1] if line[0] == ?>\x0d
  return '' if line == ''\x0d
  return "/* #{line} */"\x0d
end\x0d
\x0d
puts s.map { |i| f i }.join("\n").gsub(" */\n/*", "\n  ")

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top