#!/usr/bin/ruby1.8
inbody = false
lines = readlines
puts "=begin head"
lines.each {|line|
  inbody = true  if /^=begin\s+head\s*$$/ =~ line
  inbody = false if /^=end\s*$$/ =~ line
  next if line =~ /^=(begin|end)\s*$$/
  next if line =~ /^=(begin\s+|end\s+)\w+\s*$$/
  if inbody
    puts line
  end
}
puts "=end"
puts "=begin"
lines.each {|line|
  inbody = true  if /^=begin\s*$$/ =~ line
  inbody = true  if /^=begin\s+JA\s*$$/ =~ line
  inbody = false if /^=end\s*$$/ =~ line
  inbody = false if /^=end\s+JA\s*$$/ =~ line
  next if line =~ /^=(begin|end)\s*$$/
  next if line =~ /^=(begin\s+|end\s+)\w+\s*$$/
  if inbody
    puts line
  end
}
puts "=end"