test :: Int -> IO ()
test steps = putStrLn $ show $ obj $ repeat steps (do_step 1) start
test :: Int -> IO ()
test steps = putStrLn $ show $ obj $ repeat steps (do_step 1) start
test steps = putStrLn $ show $ obj $ repeat steps (do_step 1) start