curve :: Int -> String -> String
curve len = seq' $ take len . until ((>=len) . length) curveStep
curve :: Int -> String -> String
curve len = seq' $ take len . until ((>=len) . length) curveStep
curve len = seq' $ take len . until ((>=len) . length) curveStep