sing :: [Char]
sing =
    if (x > y) then fstString x else sndString y
        where
            x = "Singin"
            y = "Somewhere"
sing :: [Char]
sing =
    if (x > y) then fstString x else sndString y
        where
            x = "Singin"
            y = "Somewhere"
sing =
    if (x > y) then fstString x else sndString y
        where
            x = "Singin"
            y = "Somewhere"