use v6;
use ENIGMA::Machine;

my $text = './keysheet-text.txt'.IO.slurp;

# Build machine from key file (day 31) 
my $machine = Machine.from-key-file($text, 31);

#-----------------------------------------------------------
# Take a look at 'encoded-message.txt' for the initial start 
# position and message indicator
#-----------------------------------------------------------

# set machine initial star position
$machine.set-display('WMD');

# decrypt the message key
my $msg-key = $machine.process-text('BDH');

# set machine to decoded message key
$machine.set-display($msg-key);

# decode sent message
my $plaintext = $machine.process-text('EBBVDRWEZRVHAFJL', 'X');

say "And the message was: $plaintext\n";

say "By the way, ",
    $plaintext.split('X')[0].lc.tc,
    " is a great song by ",
    $plaintext.split('X')[2], '.';