#!/usr/bin/env perl

use Tak::Client;
use Tak::Router;
use Tak::REPL;
use strictures 1;

my $client = Tak::Client->new(service => Tak::Router->new);

$client->curry('meta')->do(register => eval => 'Tak::EvalService');

my $repl = Tak::REPL->new(client => $client->curry('eval'));

$repl->run;