#!/usr/bin/perl

use lib "..";
use Loop::Watch;

ensure { $x < 10 } watching($x), looping {
  chomp($x = <STDIN>);
  print "[$x]\n";
};