#!/usr/bin/perl

$|++;

use strict;
use warnings;

sub main {
    # Code
    print join "",reverse split//,24;
    sleep(100);
    1;
}

main();
1;