#!/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, 20*$i, 20);
  $str1 = substr($str0,0,1).substr($str0,2,1).substr($str0,4,1).substr($str0,6,1).substr($str0,8,1).substr($str0,10,1).substr($str0,12,1).substr($str0,14,1).substr($str0,16,1).substr($str0,18,1);
  $str2 = substr($str0,1,1).substr($str0,3,1).substr($str0,5,1).substr($str0,7,1).substr($str0,9,1).substr($str0,11,1).substr($str0,13,1).substr($str0,15,1).substr($str0,17,1).substr($str0,19,1);
  print $i+1, ";", $str1, ";", $str2, ";", &cblwE($str1,$str2)/10, "\n";
  }
