import System.Process.Run

main = do
    edate <- readProcess "date" ["+%y-%m-%d"] []
    case edate of
        Left err   -> print err
        Right date -> putStr date