program.p6

#!/usr/bin/env perl6

# Author: AndroidKitKat
# Date: 2019-05-17


# create a new array called decks and feed the data in from stdin
my @numbers;

for lines() {
    @numbers.push($_)
}

# get the amount from the first number
my $amnt = @numbers.shift;

# get each digit of the number
for @numbers -> $num {
    while $num > 0 {
        say $num % 10;
        $num = $num / 10;
    }
}