( ",,,!" )
nip
m:
    ( "Happy birthday " )
    push-a
    read-num
    counter
    =
    w( "to you" "dear anagol" )
    get
    rot
    new-line