opcolon :: String -> String
dropcolon s = if takeWhile (/= ':') s == s
              then s
              else drop 1 $ dropWhile (/= ':') s


dropcolon :: String -> String
dropcolon s = if takeWhile (/= ':') s == s
              then s
              else drop 1 $ dropWhile (/= ':') s
dropcolon s = if takeWhile (/= ':') s == s
              then s
              else drop 1 $ dropWhile (/= ':') s