module Main where

import Data.Time
import System.Locale

($$) = flip ($)
main = getCurrentTimeZone >>= \ tz ->
       getCurrentTime     >>= \ ct ->
       utcToLocalTime tz ct $$ formatTime defaultTimeLocale "%Y%m%d%H%M%S.%q"
                            $$ take 18
                            $$ putStrLn