learLogs :: Int -> IO ()
clearLogs n = forM_ [0..(n-1)] $ \i ->
  writeFile
    ("out/room_b" ++ show i ++ ".dat")
    ""

clearLogs :: Int -> IO ()
clearLogs n = forM_ [0..(n-1)] $ \i ->
  writeFile
    ("out/room_b" ++ show i ++ ".dat")
    ""
clearLogs n = forM_ [0..(n-1)] $ \i ->
  writeFile
    ("out/room_b" ++ show i ++ ".dat")
    ""