Test.hs

module Main where

import Control.Monad
import Data.List
import Data.Char
import System.IO

getSecondWord = head . tail . words
getLastWord = last . words

myReverse = foldl (flip (:)) []

lastButOne = head . reverse . init

data Meow a = Meow a 
              deriving (Show)

splitDigits :: String -> [Int]
splitDigits = map digitToInt

addNum :: Int -> Int
addNum = foldl' (+) 0 . splitDigits . show

myLast :: [a] -> a
myLast = head . reverse


data Tree a = Node a (Tree a) (Tree a)
            | Empty
              deriving (Show)

ghci> let x = Node "Meow" (Node "Hello" Empty Empty) (Node "Hai!" Empty Empty)
ghci> x
Node "Meow" (Node "Hello" Empty Empty) (Node "Hai!" Empty Empty)