#!/usr/bin/env perl
use Dancer;
use Lingua::PTD::WS;
dance;