Compile and Execute Haskell Online

import Data.Maybe

main :: IO()
main
    = putStrLn(show(encode "ABC"))

{-Question 1: Morse Code-}

{-1.1-}
type Morse = [MorseVal]
data MorseVal = DOT | DASH | GAP deriving (Show)

dict :: [(Char, Morse)]
dict
    = [('A', m ".-"), ('B', m "-..."), ('C', m "-.-."),
       ('D', m "-.."), ('E', m "."), ('F', m "..-."),
       ('G', m "--."), ('H', m "...."), ('I', m ".."),
       ('J', m ".---"), ('K', m "-.-"), ('L', m ".-.."),
       ('M', m "--"), ('N', m "-."), ('O', m "---"),
       ('P', m ".--."), ('Q', m "--.-"), ('R', m ".-."),
       ('S', m "..."), ('T', m "-"), ('U', m "..-"),
       ('V', m "...-"), ('W', m ".--"), ('X', m "-..-"),
       ('Y', m "-.--"), ('Z', m "--..")]
    
    where m = map toWord
          toWord '.' = DOT
          toWord '-' = DASH

{-1.2-}
encode :: [Char] -> Morse
encode [] = []
encode (x:xs)
    = fromJust(lookup x dict) ++ [GAP] ++ encode xs
 
{-1.3-} 
    
{-Question 2: Suko-}

suko :: [Int] -> [Int]
suko [] = []
suko {-filter???-}

{-Question 3: Transform-}