showDate y m d = show y ++ "-" ++ show m ++ "-" ++ show d