main2 :: IO ()
main2 = plotPath
        [Title "Damped Harmonic Oscillator"
        ,XLabel "Time (s)"
        ,YLabel "Voltage (V)"
        ,Key Nothing
        ,PNG "learn-physics-DHO.png"
        ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)
        >> putStrLn "output sent to file learn-physics-DHO.png"
main2 :: IO ()
main2 = plotPath
        [Title "Damped Harmonic Oscillator"
        ,XLabel "Time (s)"
        ,YLabel "Voltage (V)"
        ,Key Nothing
        ,PNG "learn-physics-DHO.png"
        ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)
        >> putStrLn "output sent to file learn-physics-DHO.png"
main2 = plotPath
        [Title "Damped Harmonic Oscillator"
        ,XLabel "Time (s)"
        ,YLabel "Voltage (V)"
        ,Key Nothing
        ,PNG "learn-physics-DHO.png"
        ] (map (\(t,x,_) -> (t,x)) $ take 1000 theStates)
        >> putStrLn "output sent to file learn-physics-DHO.png"