riteLog :: Int -> [Body] -> IO ()
writeLog n bodies = forM_ [0..(n-1)] $ \i ->
  appendFile
    ("out/room_b" ++ show i ++ ".dat")
    ((++ "\n") . gnuplot $ bodies !! i)

writeLog :: Int -> [Body] -> IO ()
writeLog n bodies = forM_ [0..(n-1)] $ \i ->
  appendFile
    ("out/room_b" ++ show i ++ ".dat")
    ((++ "\n") . gnuplot $ bodies !! i)
writeLog n bodies = forM_ [0..(n-1)] $ \i ->
  appendFile
    ("out/room_b" ++ show i ++ ".dat")
    ((++ "\n") . gnuplot $ bodies !! i)