#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(usleep);

my @phases = (
    "\N{U+1FBA0}\N{U+1FBA1}\N{U+1FBA3}\N{U+1FBA2}",
    "\N{U+1FBA4}\N{U+1FBA7}\N{U+1FBA5}\N{U+1FBA6}",
    "\N{U+1FBAD}\N{U+1FBAC}\N{U+1FBAA}\N{U+1FBAB}",
    "\N{U+1FBAE}",
);

binmode(STDOUT, ':utf8');
$| = 1;

foreach my $phase (@phases) {
    my @ring = split//, $phase;
    for (my $loop = 0; $loop < 3; $loop++) {
        foreach my $c (@ring) {
            print "\b\b", $c, " ";
            usleep(125_000);
        }
    }
}
print "\b\b  \b\b";

#ll