#!perl

use strict;
use warnings;

use Carp qw( croak );
use Story::Interact ();
use Story::Interact::Harness::Terminal ();

my $story = shift
	or croak( 'Usage: story-interact [STORY]' );

my $src = Story::Interact->new_page_source( $story );

Story::Interact::Harness::Terminal->new( page_source => $src )->run();
