nested dos

nested dos.hs

main = do
    chars <- getLine
    let otherchars = do 
        a <- chars
        b <- chars
        [a] ++ [b]
    putStrLn otherchars

main =
  let chars = #getLine in
  let otherchars = {
    let a = #chars in
    let b = #chars in
    [a] ++ [b]
  }
  putStrLn otherchars

Edit: this is a type error though, chars :: String, but I get what you mean. The {} makes it desugar in the proper block.

Notice it would be much nicer if the let x = y in z syntax was just x = y; z. Also do could be used to avoid {}, I guess. So,

main =
  chars = #getLine
  otherChargs = do
    a = #chars
    b = #chars
    a ++ b
  putStrLn otherChars

In an ideal world?