#!/usr/local/bin/perl

#/*********************************************************************/
#/*								      */
#/* changeform							      */
#/*								      */
#/* Copyright (C) 1997 Thanaruk Theeramunkong (ping@jaist.ac.jp)      */ 
#/*                    Manabu Okumura         (oku@jaist.ac.jp)       */
#/*                    Susumu Kunifuji        (kuni@jaist.ac.jp)      */
#/*                    Hiroki Imai            (imai@cs.titech.ac.jp)  */
#/*								      */
#/*					     	9 May 1997	      */
#/*								      */
#/*								      */
#/*********************************************************************/


$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[1],$items[0]);
    }
    printf("]).\n");
}

