#!/usr/bin/perl -w

print ("\n *********************************** \n");
print (" **                               ** \n");
print (" **                               ** \n");
print (" **     Funkyurl  Generation      ** \n");
print (" **           By  Qnix            ** \n");
print (" **   Q-nix[at]hotmail[dot]com    ** \n");
print (" **-------------------------------** \n");
print (" ** Example:-                     ** \n");
print (" **    first    : 64              ** \n");
print (" **    second   : 233             ** \n");
print (" **    third    : 161             ** \n");
print (" **    fourth   : 104             ** \n");
print (" **    Funkyurl : 1089053032      ** \n");
print (" **                               ** \n");
print (" **                               ** \n");
print (" *********************************** \n\n\n");

print ("\n first  : ");
chomp($first = <STDIN>);

print ("\n second : ");
chomp($second = <STDIN>);

print ("\n third  : ");
chomp($third = <STDIN>);

print ("\n fourth : ");
chomp($fourth = <STDIN>);

$furl= ( ($first * 16777216) + ($second * 65536)+ ($third * 256) + $fourth );
print ("\n Your funkyurl is : $furl\n\n");