#!/usr/local/bin/perl

#
# Copyright (C) 1996 Thanaruk Theeramunkong (ping@jaist.ac.jp)       
#                    Hiroki Imai            (imai@cs.titech.ac.jp)  
#                    Manabu Okumura         (oku@jaist.ac.jp)       
#                    Susumu Kunifuji        (kuni@jaist.ac.jp)      
#								     
#					       6 June 1996	     
#								     


$count=0;
while (<STDIN>) {
    $wordnum=0;
    $count++;
    chop;
    printf("input_sentence(%3d,[",$count);
    @words = split(/\s+/,$_);
    foreach $word (@words) {
	if($wordnum++ != 0){ printf(","); }
	@items = split(/\//,$word);
	$items[0] =~ tr/A-Z/a-z/ ;
	$items[1] =~ tr/A-Z/a-z/ ;
        if( $items[0] =~ /\W+/ ){ $items[0] =~ s/(.*)/"$1"/; }
	printf("[%s,%s]",$items[0],$items[1]);
    }
    printf("]).\n");
}

