#!/usr/bin/env perl
#Question 1: Counting DNA nucleotides
use v5.16;

sub sort_and_print_hash_keys (\%) {
    my %hash = %{shift()};
    foreach (sort keys %hash) {
        print "$hash{$_} ";
    }
    print "\n";
}

sub counting {
    my %letters = ();

    chomp(my $seq = readline);

    foreach my $base (split //, $seq) {
        $letters{$base}++;
    }

    sort_and_print_hash_keys(%letters);
}

counting();