$n=<>;print"Happy birthday ",$n-$_?"to you":"dear anagol",$_>3?"!
":",
"for 1..4