diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -7,6 +7,13 @@
 
 This project adheres to the [Haskell Package Versioning Policy](https://pvp.haskell.org/).
 
+## [0.1.0.3] - 2019-07-22
+- Library now builds with newer `posix-api-0.3.*` and with
+  `primitive-0.7.*`.
+
+## [0.1.0.2] - 2019-04-08
+- Not documented
+
 ## [0.1.0.1] - 2018-01-07
 - Fix a problem in `multihosts` that occassionally caused the function
   to wait for a number of nanoseconds close to `maxBound :: Word64`.
diff --git a/app/Multiping.hs b/app/Multiping.hs
new file mode 100644
--- /dev/null
+++ b/app/Multiping.hs
@@ -0,0 +1,249 @@
+{-# language DuplicateRecordFields #-}
+{-# language OverloadedStrings #-}
+{-# language LambdaCase #-}
+{-# language NamedFieldPuns #-}
+
+import Data.Word (Word64)
+import Net.Types (IPv4,IPv4Range)
+import Options.Applicative ((<**>))
+import System.IO (stderr)
+import Data.Primitive (PrimArray)
+
+import qualified Data.Map.Unboxed.Unboxed as MUU
+import qualified Data.Map.Unboxed.Unlifted as MUN
+import qualified Data.Primitive as PM
+import qualified Data.Set.Unboxed as SU
+import qualified Data.Text as T
+import qualified Data.Text.IO as TIO
+import qualified Data.Text.Lazy.Builder as TB
+import qualified Data.Text.Lazy.Builder.Int as TBI
+import qualified Data.Text.Lazy.IO as TLIO
+import qualified Net.IPv4 as IPv4
+import qualified Network.Icmp.Ping as Ping
+import qualified Options.Applicative as P
+
+main :: IO ()
+main = do
+  cmd <- P.execParser $ P.info
+    (commandParser <**> P.helper)
+    P.fullDesc
+  run cmd
+
+run :: Command -> IO ()
+run = \case
+  CommandHost Host{address,timeout} -> Ping.host (timeout * 1000000) address >>= \case
+    Left err -> TIO.hPutStrLn stderr (T.pack (show err))
+    Right m -> case m of
+      Nothing -> TIO.hPutStrLn stderr "Timed out"
+      Just ns -> TLIO.putStrLn (TB.toLazyText (TBI.decimal ns))
+  CommandHosts Hosts{address,timeout} ->
+    Ping.hosts (timeout * 1000000) (SU.fromList address) >>= \case
+      Left err -> TIO.hPutStrLn stderr (T.pack (show err))
+      Right m -> printHosts m
+  CommandRange Range{range,timeout} ->
+    Ping.range (timeout * 1000000) range >>= \case
+      Left err -> TIO.hPutStrLn stderr (T.pack (show err))
+      Right m -> printHosts m
+  CommandMultihosts Multihosts{address,timeout,requests,cutoff,delay} ->
+    Ping.multihosts (timeout * 1000000) (delay * 1000000) requests cutoff (SU.fromList address) >>= \case
+      Left err -> TIO.hPutStrLn stderr (T.pack (show err))
+      Right m -> printMultihosts m
+  CommandMultirange Multirange{range,timeout,requests,cutoff,delay} ->
+    Ping.multirange (timeout * 1000000) (delay * 1000000) requests cutoff range >>= \case
+      Left err -> TIO.hPutStrLn stderr (T.pack (show err))
+      Right m -> printMultihosts m
+
+printHosts :: MUU.Map IPv4 Word64 -> IO ()
+printHosts = MUU.traverseWithKey_
+  ( \addr ns -> TLIO.putStrLn $ TB.toLazyText $
+      IPv4.builder addr <> ": " <> TBI.decimal ns
+  )
+
+printMultihosts :: MUN.Map IPv4 (PrimArray Word64) -> IO ()
+printMultihosts = MUN.foldlMapWithKeyM'
+  ( \addr resps -> do
+    TLIO.putStr (TB.toLazyText (IPv4.builder addr <> TB.singleton ':'))
+    PM.traversePrimArray_
+      ( \ns -> TLIO.putStr (TB.toLazyText (TB.singleton ' '<> TBI.decimal ns))
+      ) resps
+    TIO.putStr (T.singleton '\n')
+  )
+
+data Command
+  = CommandHost Host
+  | CommandHosts Hosts
+  | CommandRange Range
+  | CommandMultihosts Multihosts
+  | CommandMultirange Multirange
+
+data Host = Host
+  { timeout :: !Int -- seconds
+  , address :: !IPv4
+  }
+
+data Hosts = Hosts
+  { timeout :: !Int -- seconds
+  , address :: [IPv4]
+  }
+
+data Range = Range
+  { timeout :: !Int -- seconds
+  , range :: !IPv4Range
+  }
+
+data Multihosts = Multihosts
+  { timeout :: !Int -- seconds
+  , delay :: !Int -- seconds
+  , requests :: !Int
+  , cutoff :: !Int
+  , address :: [IPv4]
+  }
+
+data Multirange = Multirange
+  { timeout :: !Int -- seconds
+  , delay :: !Int -- seconds
+  , requests :: !Int
+  , cutoff :: !Int
+  , range :: !IPv4Range
+  }
+
+commandParser :: P.Parser Command
+commandParser = P.hsubparser $ mconcat
+  [ P.command "host" $ P.info
+      (CommandHost <$> hostParser)
+      (P.progDesc "One ICMP echo request to a single host")
+  , P.command "hosts" $ P.info
+      (CommandHosts <$> hostsParser)
+      (P.progDesc "One ICMP echo request to each argument host")
+  , P.command "range" $ P.info
+      (CommandRange <$> rangeParser)
+      (P.progDesc "One ICMP echo request to each host in range")
+  , P.command "multihosts" $ P.info
+      (CommandMultihosts <$> multihostsParser)
+      (P.progDesc "Multiple ICMP echo requests to each argument host")
+  , P.command "multirange" $ P.info
+      (CommandMultirange <$> multirangeParser)
+      (P.progDesc "Multiple ICMP echo requests to each host in range")
+  ]
+
+hostParser :: P.Parser Host
+hostParser = Host
+  <$> P.option P.auto
+      ( P.long "timeout"
+     <> P.short 't'
+     <> P.metavar "SECONDS"
+     <> P.value 3
+     <> P.help "Timeout in seconds"
+      )
+  <*> P.argument ipReadM
+      ( P.metavar "HOST"
+     <> P.help "IPv4 address of destination"
+      )
+
+hostsParser :: P.Parser Hosts
+hostsParser = Hosts
+  <$> P.option P.auto
+      ( P.long "timeout"
+     <> P.short 't'
+     <> P.metavar "SECONDS"
+     <> P.value 3
+     <> P.help "Timeout in seconds"
+      )
+  <*> P.some
+      ( P.argument ipReadM
+      ( P.metavar "HOST"
+     <> P.help "IPv4 address of destination"
+      )
+      )
+
+rangeParser :: P.Parser Range
+rangeParser = Range
+  <$> P.option P.auto
+      ( P.long "timeout"
+     <> P.short 't'
+     <> P.metavar "SECONDS"
+     <> P.value 3
+     <> P.help "Timeout in seconds"
+      )
+  <*> P.argument ipRangeReadM
+      ( P.metavar "RANGE"
+     <> P.help "Destinations as IPv4 range in CIDR notation"
+      )
+
+multihostsParser :: P.Parser Multihosts
+multihostsParser = Multihosts
+  <$> P.option P.auto
+      ( P.long "timeout"
+     <> P.short 't'
+     <> P.metavar "SECONDS"
+     <> P.value 3
+     <> P.help "Timeout in seconds"
+      )
+  <*> P.option P.auto
+      ( P.long "delay"
+     <> P.short 'd'
+     <> P.metavar "SECONDS"
+     <> P.value 0
+     <> P.help "Delay in seconds bewteen ICMP requests to same host"
+      )
+  <*> P.option P.auto
+      ( P.long "requests"
+     <> P.short 'r'
+     <> P.metavar "INT"
+     <> P.value 3
+     <> P.help "Number of pings per host"
+      )
+  <*> P.option P.auto
+      ( P.long "cutoff"
+     <> P.short 'c'
+     <> P.metavar "INT"
+     <> P.value 2
+     <> P.help "Nonresponsive cutoff"
+      )
+  <*> P.some
+      ( P.argument ipReadM
+      ( P.metavar "HOST"
+     <> P.help "IPv4 address of destination"
+      )
+      )
+
+multirangeParser :: P.Parser Multirange
+multirangeParser = Multirange
+  <$> P.option P.auto
+      ( P.long "timeout"
+     <> P.short 't'
+     <> P.metavar "SECONDS"
+     <> P.value 3
+     <> P.help "Timeout in seconds"
+      )
+  <*> P.option P.auto
+      ( P.long "delay"
+     <> P.short 'd'
+     <> P.metavar "SECONDS"
+     <> P.value 0
+     <> P.help "Delay in seconds bewteen ICMP requests to same host"
+      )
+  <*> P.option P.auto
+      ( P.long "requests"
+     <> P.short 'r'
+     <> P.metavar "INT"
+     <> P.value 3
+     <> P.help "Number of pings per host"
+      )
+  <*> P.option P.auto
+      ( P.long "cutoff"
+     <> P.short 'c'
+     <> P.metavar "INT"
+     <> P.value 2
+     <> P.help "Nonresponsive cutoff"
+      )
+  <*> P.argument ipRangeReadM
+      ( P.metavar "RANGE"
+     <> P.help "Destinations as IPv4 range in CIDR notation"
+      )
+
+ipReadM :: P.ReadM IPv4
+ipReadM = P.maybeReader (IPv4.decode . T.pack)
+
+ipRangeReadM :: P.ReadM IPv4Range
+ipRangeReadM = P.maybeReader (IPv4.decodeRange . T.pack)
diff --git a/ping.cabal b/ping.cabal
--- a/ping.cabal
+++ b/ping.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name: ping
-version: 0.1.0.2
+version: 0.1.0.3
 synopsis: icmp echo requests
 description:
   This library provides functions that have similar behavior as the
@@ -33,9 +33,14 @@
 
 flag debug
   manual: True
-  description: Print debug output 
+  description: Print debug output
   default: False
 
+flag application
+  manual: True
+  description: Build CLI application that exposes ping-like functions as subcommands
+  default: False
+
 library
   hs-source-dirs: src
   if flag(debug)
@@ -46,8 +51,9 @@
     , base >= 4.11.1 && <5
     , ip >= 1.4
     , cpu >= 0.1.2
-    , posix-api >= 0.2.1 && < 0.3
-    , primitive >= 0.6.4
+    , posix-api >= 0.3 && < 0.4
+    , primitive >= 0.7 && < 0.8
+    , primitive-addr >= 0.1 && < 0.2
     , primitive-containers >= 0.3.1
     , stm >= 2.5
     , transformers >= 0.5.5
@@ -60,7 +66,25 @@
     Network.Icmp.Common
     Network.Icmp.Ping.Debug
   default-language: Haskell2010
-  build-tools: hsc2hs
+  build-tool-depends: hsc2hs:hsc2hs>=0.68.4
   ghc-options: -O2 -Wall
   include-dirs: include
   includes: custom.h
+
+executable multiping
+  if flag(application)
+    buildable: True
+  else
+    buildable: False
+  main-is: Multiping.hs
+  default-language: Haskell2010
+  hs-source-dirs: app
+  ghc-options: -O2 -Wall -threaded
+  build-depends:
+    , base >= 4.11.1 && <5
+    , ip >= 1.5
+    , optparse-applicative >= 0.14.3.0 && < 0.15
+    , ping
+    , primitive-containers >= 0.3.1
+    , text >= 1.2.3.1
+    , primitive >= 0.6.4