catchouli

module Main where

import Control.Monad.Random
import Data.Char

-- | Get all word ranges in string
accumWords :: (Char -> Bool) -> String -> [String]
accumWords pred str = allWords
  where (last, others, _) = foldl accumWords' ("", [], True) str
        allWords = others ++ [last]

catchouli

{{FrontSide}}

<hr id=answer>

<div id="controls">placeholder text</div>

<script type="module">
    import {
        init,
        classModule,