module Main where

import Control.Exception
import Track(parseFile)
import Data.List as List

main :: IO ()
main = do
  points <- Track.parseFile "track.gpx"
  putStrLn ("loaded " ++ (show (List.length points)))