### ----------------------------------------------------
### -- Text::Caesar
### -- Licenses: NOASSERTION
### -- Authors: Emeric Fischer
### -- File: examples/e02-decrypt.raku
### ----------------------------------------------------
use Text::Caesar;

my Str $secret = 'LPDVHFUHWPHVVDJH'
my Str $message = decrypt(3, $secret);
say $message;


