unTest :: Int -> Wire (Timed Double ()) String IO () [Body] -> IO ()
runTest n w = do
    clearLogs 10
    runBackend (gnuPlotBackend (1/fr) (round (fr*6))) (writeLog n) (w . pure ())

runTest :: Int -> Wire (Timed Double ()) String IO () [Body] -> IO ()
runTest n w = do
    clearLogs 10
    runBackend (gnuPlotBackend (1/fr) (round (fr*6))) (writeLog n) (w . pure ())
runTest n w = do
    clearLogs 10
    runBackend (gnuPlotBackend (1/fr) (round (fr*6))) (writeLog n) (w . pure ())