#!/usr/athena/bin/perl

require '/mit/21w765j/common/conv-lib.pl';

$charfile = shift(@ARGV);
&readcharacter($charfile);
$charprompt = &get(character,0,charstyle);
$userprompt = &get(character,0,userstyle);
&filpr($charprompt." ".&get(character, 0, introline)."\n");
&filpr($userprompt." ");
while(<>){
    $x = &respond($_);
    &filpr($charprompt." ");
    &filpr($x."\n");
    &filpr($userprompt." ");
}