jkramer · January 29, 2018 11:18
diff --git a/ö.p6 b/ö.p6
 #!/usr/bin/env perl6

 $*IN.slurp.&talk;

 sub talk(Str $_) {
  my @ös = |('Ö','ö') xx *;

  for .lines {
    for .comb.produce(&[~]) {
      print "\r", @ös.shift, ' ', $_;
      sleep ((1..4) X/ 10).pick;
    }

    print "\r \n";
  }
 }
	#!/usr/bin/env perl6

	$*IN.slurp.&talk;

	sub talk(Str $_) {
	my @ös = \|('Ö','ö') xx *;

	for .lines {
	for .comb.produce(&[~]) {
	print "\r", @ös.shift, ' ', $_;
	sleep ((1..4) X/ 10).pick;
	}

	print "\r \n";
	}
	}