diff --git a/library/Ptr/Peek.hs b/library/Ptr/Peek.hs
--- a/library/Ptr/Peek.hs
+++ b/library/Ptr/Peek.hs
@@ -58,6 +58,12 @@
   {-# SCC "bytes" #-} 
   Peek amount (\ ptr -> A.peekBytes ptr amount)
 
+{-# INLINE shortByteString #-}
+shortByteString :: Int -> Peek ShortByteString
+shortByteString !amount =
+  {-# SCC "shortByteString" #-} 
+  Peek amount (\ ptr -> A.peekShortByteString ptr amount)
+
 {-# INLINE pokeAndPeek #-}
 pokeAndPeek :: B.PokeAndPeek input output -> Peek output
 pokeAndPeek (B.PokeAndPeek size _ io) =
diff --git a/library/Ptr/Poking.hs b/library/Ptr/Poking.hs
--- a/library/Ptr/Poking.hs
+++ b/library/Ptr/Poking.hs
@@ -79,3 +79,28 @@
 pokeAndPeek :: D.PokeAndPeek input output -> input -> Poking
 pokeAndPeek (D.PokeAndPeek space poke _) input =
   Poking space (\ptr -> poke ptr input)
+
+{-# INLINABLE asciiIntegral #-}
+asciiIntegral :: Integral a => a -> Poking
+asciiIntegral =
+  \case
+    0 ->
+      word8 48
+    x ->
+      bool ((<>) (word8 45)) id (x >= 0) $
+      loop mempty $
+      abs x
+  where
+    loop builder remainder =
+      case remainder of
+        0 ->
+          builder
+        _ ->
+          case quotRem remainder 10 of
+            (quot, rem) ->
+              loop (word8 (48 + fromIntegral rem) <> builder) quot
+
+{-# INLINE asciiChar #-}
+asciiChar :: Char -> Poking
+asciiChar =
+  word8 . fromIntegral . ord
diff --git a/ptr.cabal b/ptr.cabal
--- a/ptr.cabal
+++ b/ptr.cabal
@@ -1,7 +1,7 @@
 name:
   ptr
 version:
-  0.15.4
+  0.15.5
 category:
   Ptr, Data
 synopsis: