printAddUsage :: IO ()
printAddUsage = mapM_ putStrLn
    [ "Usage: add [word|\"front text\" \"back text\"]"
    , "   add word"
    , "      look up |word|, pick a definition, and add it to the current deck"
    , "   add \"front text\" \"back text\""
    , "      add a new card with front |front text| and back |back text|"
    ]
printAddUsage :: IO ()
printAddUsage = mapM_ putStrLn
    [ "Usage: add [word|\"front text\" \"back text\"]"
    , "   add word"
    , "      look up |word|, pick a definition, and add it to the current deck"
    , "   add \"front text\" \"back text\""
    , "      add a new card with front |front text| and back |back text|"
    ]
printAddUsage = mapM_ putStrLn
    [ "Usage: add [word|\"front text\" \"back text\"]"
    , "   add word"
    , "      look up |word|, pick a definition, and add it to the current deck"
    , "   add \"front text\" \"back text\""
    , "      add a new card with front |front text| and back |back text|"
    ]