$_=slurp;s:g//>/;0 while s/(\N*)\n\N*)>\N$0/v/;.say