#!/usr/bin/perl

while ($line = <STDIN>) {
  chomp $line;
  if ($line =~ /^\s*$/) {
    print_solution($line);
  } else {
    update_solution($line);
  }
}

sub print_solution {
}

sub update_solution {
}