qs = [["A", "E"], ["B"], ["C"], ["D"]]
k = read_line.to_i
k.times do |i|
  fi = i % 4
  ti = (i + 1) % 4
  qs[ti] << qs[fi].shift
end
puts qs.map { |q| q.join }.join("\n")