diff --git a/exon.cabal b/exon.cabal
--- a/exon.cabal
+++ b/exon.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           exon
-version:        1.6.0.1
+version:        1.6.0.2
 synopsis:       Customizable quasiquote interpolation
 description:    See https://hackage.haskell.org/package/exon/docs/Exon.html
 category:       String
diff --git a/lib/Exon/Parse.hs b/lib/Exon/Parse.hs
--- a/lib/Exon/Parse.hs
+++ b/lib/Exon/Parse.hs
@@ -86,7 +86,9 @@
 
 verbatimWith :: Parser Char -> Parser String
 verbatimWith end =
-  takeRestUnless end <> (stopHerald <|> option "" (try (string "#" <> verbatim)))
+  go
+  where
+    go = takeRestUnless end <> (stopHerald <|> option "" (string "#" <> option "" go))
 
 verbatim :: Parser String
 verbatim =
diff --git a/test/Exon/Test/BasicTest.hs b/test/Exon/Test/BasicTest.hs
--- a/test/Exon/Test/BasicTest.hs
+++ b/test/Exon/Test/BasicTest.hs
@@ -45,12 +45,16 @@
   "Philip | J. | FRY" === skipWs [exonws|Philip J. #{SkipWs (up lastName)}|]
   "Philip J. | FRY" === [exon|Philip J.#{up lastName}|]
   ("abc" :: Text) === skipWs [exonws|a  ##{"b" :: Text} #{"c"}|]
+  ("one #" :: Text) === [exon|one #|]
   where
     var :: IsString a => a
     var =
       "and"
 
-newtype Thing = Thing String deriving stock (Generic) deriving newtype (IsString, Show, Eq)
+newtype Thing =
+  Thing String
+  deriving stock (Generic)
+  deriving newtype (IsString, Show, Eq)
 
 instance ExonSegment Thing inner String where
   exonSegment builder = \case
diff --git a/test/Exon/Test/NewtypeTest.hs b/test/Exon/Test/NewtypeTest.hs
--- a/test/Exon/Test/NewtypeTest.hs
+++ b/test/Exon/Test/NewtypeTest.hs
@@ -63,3 +63,4 @@
   ("pre|post" :: StrUse) === exonUse (skipWs [exonws|pre ##{"post" :: Text}|])
   ("prepost" :: StrUse) === skipWs [exonws|pre ##{"post" :: Text}|]
   ("pre post" :: Str) === [exon|pre ##{StrUse "post"}|]
+  ("one #two" :: Text) === [exon|one ###{Nt "two"}|]