#!/usr/bin/perl

open IN,"p113.asc";

$odd=1;
$c=0;
print "_i_f t<29 _t_h_e_n\n";
print "_c_a_s_e t+1 _o_f\n";
print "_b_e_g_i_n\n";
while($l = <IN>)
{
  chomp($l);
# print "l: $l\n";
  if($l =~ /^ *(\d+)\/ *(\d+)\/ *(\d+)\/ *(\d+)/)
  {
    $b1=$1;
    $b2=$2;
    $b3=$3;
    $b4=$4;
    if($odd)
    {
      print "_b_e_g_i_n _c_o_m_m_e_n_t t=$c;\n";
      print "A0 := _1_0 $b1 _1_0 $b2 _1_0 $b3 _1_0 $b4;\n";
    }
    else
    {
      print "A1 := _1_0 $b1 _1_0 $b2 _1_0 $b3 _1_0 $b4;\n";
      print "_e_n_d;\n";
      $c++;
      if($c==29)
      {
	print "_e_n_d\n";
	print "_e_l_s_e\n";
	print "_c_a_s_e t-28 _o_f\n";
	print "_b_e_g_i_n\n";
      }
    }
    $odd=1-$odd;
  }
}
print "_e_n_d;\n";