#!/usr/bin/perl

use Term::ReadLine;
use Camila::caller;

$term = new Term::ReadLine 'Simple Camila Interactive Interpreter';
$prompt = "?- ";

Camila::init('vdmsl');

while ( defined ($_ = $term->readline($prompt)) ) {
  Camila::caller::parse_string($_);
  $term->addhistory($_);
}