main = do
    input <- readFile "rosalind_lcsm.txt"
    let 
        s   = splitStr input
        tmp = formTuple $ lines s 
        tmp'= nub $ removeRosalind tmp
        res = commonSubStr $ zzz tmp'
    putStrLn $ res!!0
main = do
    input <- readFile "rosalind_lcsm.txt"
    let 
        s   = splitStr input
        tmp = formTuple $ lines s 
        tmp'= nub $ removeRosalind tmp
        res = commonSubStr $ zzz tmp'
    putStrLn $ res!!0
main = do
    input <- readFile "rosalind_lcsm.txt"
    let 
        s   = splitStr input
        tmp = formTuple $ lines s 
        tmp'= nub $ removeRosalind tmp
        res = commonSubStr $ zzz tmp'
    putStrLn $ res!!0