challenge-035/arne-sommer/perl6/bem


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#! /usr/bin/env raku

use lib "lib";

use BinaryMorse2;

multi sub MAIN (BinaryMorse2::BinaryMorse $binary-morse)
{
  say BinaryMorse2::demorsify($binary-morse);
}

multi sub MAIN (Str $text)
{
  say BinaryMorse2::morsify($text);
}