#!/usr/bin/perl -w

require "auxcrypt.pl";  # gettext, cblwE

$text = &gettext;      # Read text from standard input
$ll = length($text);
if ($ll < 40000) {die "Text too short!";}

for ($i = 0; $i < 2000; $i++) {
  $str0 = substr($text, 10*$i, 10);
  $str1 = substr($text, 20000 + 10*$i, 10);
  print $i+1, ";", $str0, ";", $str1, ";", &cblwE($str0,$str1)/10, "\n";
  }
