#!/usr/bin/env stack
-- stack --resolver=lts-5.9 runghc --package=xlsx-tabular
import Data.Aeson
import qualified Data.ByteString.Lazy.Char8 as BS8
import Codec.Xlsx.Util.Tabular
import Codec.Xlsx.Util.Tabular.Json
main = do
  r <- toTableRowsFromFile 8 "your-sample.xlsx"
  let json = encode r
  BS8.putStrLn json