(format t"happy ~[~;~;(:~;d:M~:;('-' )~] new ~A year!"(length(setq i(read-line)))i)