#!/usr/bin/perl


while (<>)
{
	# if (5 .. 10) {print;}
	next if (1 .. /^$/);
	s/^/> /;
	print;
}