• [deleted]
    + 1 comment

    Using recursion:

    mingle "" "" = ""
    mingle p q   = (head p) : (head q) : mingle (tail p) (tail q)
    
    main = do
      p <- getLine
      q <- getLine
      putStrLn $ mingle p q