sol.cr

def process_input(input)
  my_stack = [] of Char
  result = ""
  input.each_char do |c|
    if c == 't'
      my_stack << c
    else
      if c != 'h'
        my_stack.each do |t|
          result += t
        end
        my_stack.clear
      end
      result += c
    end
  end
  result + my_stack.join("")
end

INPUT = [ "the theater",  "interesting stories", "authentic atthic", "thththththththt"]
OUTPUT = [ "hte hteater", "interesting stories", "auhtentic ahttic", "hhhhhhhtttttttt" ]

INPUT.each_with_index do |v, i|
  if OUTPUT[i] == process_input(v)
    puts "Pass"
  else
    puts "Fail"
  end
end