#!/usr/bin/perl
use Time::HiRes usleep;

$|=1;@_=(65,108,108,32,121,111,117,114,32,98,
97,115,101,115,040,97,114,101,040,98,101,108,
111,110,103,32,116,111,32,117,115,97,76,42,69
,24,29,85,6,72,07,65,35,04,29,68,00,82,53,69,
16,9,76,39,15,04,75,17,29,83,85,83);print(map
{chr}(@_[0..$#_/2],13));_:{print(($_!=0?chr(8
):"").chr($_[$_]^$_[$_+($#_/2)+1]))&&usleep((
1<<18)/$.)for(0..++$.-1);$.>$#_>>1||redo _;};