main :: IO ()
main = do
  prompted <- prompt
  mainLoop $ dartPrompt prompted
main :: IO ()
main = do
  prompted <- prompt
  mainLoop $ dartPrompt prompted
main = do
  prompted <- prompt
  mainLoop $ dartPrompt prompted