calcHorz :: [String] -> Int
calcHorz [] = 0
calcHorz sts
  | prefix == "forward" = read (drop 8 command) + calcHorz (tail sts)
  | otherwise = calcHorz (tail sts)
    where command = head sts
          prefix = takeWhile (/=' ') command

calcVert :: [String] -> Int -> Int
calcVert [] _ = 0
calcVert sts aim
  | prefix == "forward" = (aim * read (drop 8 command)) + calcVert (tail sts) aim
  | prefix == "up" = calcVert (tail sts) (aim - (read (drop 3 command)))
  | prefix == "down" = calcVert (tail sts) (aim + (read (drop 5 command)))
  | otherwise = error ("Not forward up or down: " ++ command)
    where command = head sts
          prefix = takeWhile (/=' ') command

data2 = ["forward 5", "down 5", "forward 8", "up 3", "down 8", "forward 2"]

data3 = ["forward 8", "down 5", "forward 16", "up 10", "down 10", "forward 3"]

data4 = ["forward 3","down 9","forward 5","up 1","forward 2","down 1","down 7","down 5","up 6","forward 3","down 6","forward 9","down 6","forward 2","down 4","forward 4","down 9","down 7","down 2","down 4","forward 3","forward 6","down 3","up 1","down 5","down 8","down 1","forward 9","forward 4","forward 3","down 3","down 6","down 3","up 2","down 3","down 9","down 1","down 9","up 8","down 1","down 9","forward 9","forward 2","down 1","forward 2","down 9","forward 9","up 7","forward 1","up 8","forward 7","forward 6","forward 2","down 8","forward 7","down 3","down 2","down 1","forward 2","down 6","forward 8","down 7","forward 9","down 7","down 9","forward 2","forward 2","up 3","down 4","down 8","forward 5","down 4","down 8","down 2","up 7","down 7","up 9","up 9","up 1","forward 2","up 4","forward 5","forward 9","forward 9","forward 3","down 6","up 3","down 1","forward 8","forward 2","down 7","forward 9","forward 1","forward 8","forward 8","down 2","down 6","forward 8","forward 8","forward 3","forward 4","down 3","up 3","forward 1","forward 4","down 1","down 4","down 2","down 3","forward 5","down 3","up 5","forward 9","down 8","up 6","down 6","up 7","up 7","forward 1","forward 7","down 1","up 3","down 1","forward 7","forward 1","forward 9","down 2","forward 9","down 3","down 5","forward 2","up 3","forward 5","forward 5","down 8","down 7","forward 6","down 2","down 5","up 4","up 5","down 6","forward 5","down 3","down 8","forward 7","down 5","down 5","down 9","down 9","down 2","down 7","up 4","forward 8","up 6","down 5","forward 1","up 2","down 6","up 8","up 7","down 6","forward 4","down 6","up 6","up 4","forward 5","forward 4","forward 6","down 3","down 7","down 9","forward 2","forward 6","down 3","forward 1","forward 2","forward 9","up 5","down 7","down 6","forward 2","forward 1","up 3","down 8","forward 9","down 7","forward 7","up 2","up 8","up 8","forward 7","forward 5","forward 9","down 7","down 7","forward 5","forward 4","forward 2","forward 8","up 3","up 7","forward 8","forward 6","forward 2","forward 6","up 3","up 1","forward 6","forward 9","down 1","forward 6","forward 4","up 6","forward 1","down 7","forward 7","up 5","down 5","down 3","forward 4","forward 6","up 6","forward 9","forward 2","down 7","forward 9","down 9","forward 2","up 1","down 4","forward 6","forward 4","down 6","forward 1","up 3","up 5","down 8","forward 2","up 7","down 5","down 2","down 6","forward 7","down 8","up 8","down 7","down 9","down 7","down 8","down 4","up 3","up 9","down 4","forward 7","down 5","up 8","down 3","forward 8","down 3","down 4","down 1","forward 5","down 4","down 8","up 7","forward 2","forward 8","down 1","down 3","forward 4","forward 5","forward 8","forward 1","down 1","down 9","up 8","forward 6","down 8","down 2","forward 9","down 5","down 8","up 8","up 5","forward 9","up 6","down 9","up 1","down 2","down 4","forward 9","forward 1","up 2","down 7","forward 9","down 9","down 6","down 9","down 8","forward 7","forward 6","forward 9","forward 9","forward 8","forward 5","up 2","forward 9","forward 2","down 1","down 1","down 5","down 1","down 7","up 2","up 7","forward 7","forward 8","down 2","down 2","down 3","up 8","up 8","up 3","forward 3","down 7","up 4","up 8","down 5","forward 4","forward 7","down 9","up 7","forward 8","forward 5","forward 8","forward 8","forward 6","forward 5","forward 2","down 3","up 2","forward 6","forward 5","down 9","down 2","down 7","down 2","forward 2","forward 6","forward 8","down 7","forward 4","down 3","down 5","forward 1","down 9","forward 5","down 4","forward 9","down 5","down 4","down 4","down 7","forward 9","down 3","down 5","down 6","down 4","forward 4","down 4","up 1","down 4","up 7","forward 4","forward 5","up 9","down 4","up 9","forward 9","down 8","down 1","up 7","down 4","up 4","forward 9","down 9","down 4","up 4","down 5","forward 2","up 4","down 3","forward 9","forward 8","down 2","forward 5","up 5","down 9","down 7","down 5","down 9","down 1","down 7","down 2","forward 4","up 7","forward 7","down 8","down 2","down 8","up 6","down 7","down 7","forward 3","up 3","forward 6","down 8","down 3","up 2","down 9","forward 3","down 9","down 6","up 8","forward 5","down 9","up 2","up 8","down 8","up 1","up 2","forward 5","up 3","down 7","forward 4","forward 2","up 1","forward 2","up 1","down 1","down 5","forward 6","up 2","down 7","down 8","down 9","up 9","down 2","up 2","forward 9","forward 6","forward 5","down 6","up 6","forward 6","forward 3","down 3","forward 2","forward 4","forward 1","down 9","forward 3","forward 2","down 5","up 2","forward 7","down 4","forward 5","down 4","forward 2","down 4","up 3","forward 6","forward 9","down 1","forward 2","up 8","forward 4","up 9","up 4","up 3","forward 5","down 7","forward 2","up 4","forward 7","down 8","forward 6","forward 4","up 5","down 4","down 6","down 3","forward 6","down 9","up 6","forward 3","down 4","forward 8","forward 1","down 3","down 4","up 4","forward 1","up 5","up 9","forward 4","up 9","forward 2","up 5","up 5","up 7","up 4","down 3","forward 8","forward 1","up 1","down 8","up 3","up 4","up 2","up 8","up 7","down 8","up 8","forward 9","down 8","up 5","forward 6","forward 4","down 8","down 9","down 4","down 6","forward 4","up 6","up 1","forward 7","up 4","down 6","up 3","down 4","forward 8","forward 4","up 2","down 3","up 3","up 9","down 4","forward 4","forward 5","forward 2","down 1","down 6","down 1","forward 6","down 2","forward 1","down 2","down 4","forward 1","down 8","up 2","down 5","forward 9","forward 4","down 9","forward 8","forward 2","forward 7","forward 1","forward 1","down 8","forward 2","forward 8","forward 7","forward 9","down 4","down 2","forward 1","forward 2","down 1","forward 1","forward 5","down 1","down 5","down 1","forward 2","up 9","forward 2","forward 4","down 9","up 7","down 1","up 4","forward 9","up 6","up 8","down 3","forward 9","up 6","down 1","forward 9","forward 3","up 5","forward 9","down 1","forward 5","up 5","down 1","up 4","forward 3","forward 1","up 4","forward 3","forward 9","down 2","forward 5","forward 4","forward 9","down 5","forward 8","forward 1","down 3","down 2","down 3","up 8","forward 3","forward 6","up 8","down 6","forward 8","forward 1","down 8","down 7","forward 8","down 2","forward 8","down 4","forward 1","down 1","up 6","forward 1","up 7","down 2","forward 5","up 9","down 5","forward 4","down 6","down 9","forward 8","up 2","up 7","forward 2","forward 5","up 9","down 4","forward 9","down 4","down 3","down 6","down 9","down 9","down 1","down 1","down 7","down 4","down 7","up 5","forward 6","down 9","forward 7","down 5","down 4","down 2","down 4","down 9","forward 1","down 9","down 8","forward 2","up 7","up 3","forward 9","forward 4","down 8","down 4","forward 2","down 8","up 3","forward 6","forward 4","down 2","up 9","down 5","up 8","up 6","up 3","down 2","forward 6","forward 4","forward 7","forward 2","down 5","down 2","forward 2","forward 6","down 5","down 4","forward 8","up 3","forward 7","down 1","forward 5","down 8","down 9","forward 5","down 7","forward 7","up 6","down 3","forward 1","down 2","down 9","down 2","down 1","forward 4","up 5","up 9","forward 1","down 5","forward 4","up 3","up 5","forward 7","forward 5","down 2","down 8","forward 5","down 7","up 8","down 5","down 6","forward 8","forward 9","down 8","up 3","down 8","down 2","forward 8","forward 8","forward 4","forward 9","up 7","up 1","down 5","down 8","down 5","forward 3","forward 2","down 8","down 3","down 2","down 5","forward 8","up 3","down 9","up 4","up 1","up 8","down 8","forward 5","down 2","forward 4","forward 1","down 7","forward 4","forward 5","up 2","down 6","up 9","forward 1","down 9","forward 4","down 7","down 9","up 9","forward 2","forward 7","down 7","forward 9","forward 1","forward 1","down 7","up 6","up 3","forward 2","forward 6","forward 9","forward 3","forward 4","forward 9","forward 9","forward 9","down 8","up 2","forward 7","down 8","down 3","up 8","down 8","forward 1","forward 9","forward 2","forward 3","down 8","forward 1","forward 4","down 9","down 4","up 7","forward 5","down 4","forward 5","down 2","forward 6","down 1","up 9","down 5","up 5","down 2","up 1","up 8","down 3","up 3","down 8","forward 4","forward 1","up 5","forward 1","down 5","up 5","forward 8","down 1","up 4","forward 9","forward 7","up 1","up 9","forward 7","forward 1","up 5","forward 6","down 2","up 5","down 4","down 6","down 3","forward 8","down 7","down 5","down 7","forward 1","down 7","up 5","down 4","down 4","down 4","forward 3","forward 4","up 6","forward 8","forward 2","up 1","forward 5","forward 6","forward 6","up 2","down 3","forward 3","up 8","forward 6","forward 5","up 2","up 5","down 6","down 8","down 1","forward 6","down 3","down 2","forward 4","down 4","down 7","forward 9","forward 4","forward 5","down 8","down 9","up 4","up 4","down 5","up 1","up 6","down 9","forward 9","forward 4","forward 9","forward 9","down 5","down 1","up 9","down 3","up 5","down 7","forward 6","forward 2","down 5","down 6","forward 7","forward 2","up 9","forward 6","down 7","up 4","forward 1","down 5","forward 2","forward 1","down 6","down 1","down 4","forward 8","forward 1","down 5","down 8","down 3","forward 4","down 2","forward 9","up 1","forward 8","down 4","down 3","down 1","forward 5","forward 9","down 3","forward 6","up 6","up 9","forward 8","forward 2","down 9","forward 3","down 4","down 5","down 4","forward 2","forward 6","down 9","down 5","forward 6","forward 3","forward 5","forward 6","forward 5","forward 1","up 4","up 1","down 2","up 6","down 5","down 1","forward 9","down 1","down 2","forward 6","up 2","down 4","up 3","forward 8","down 4","down 4","down 6","up 1","down 7","up 4","down 6","up 7","up 6","down 5","forward 3","forward 4","up 5","down 2","down 9","forward 9"]
data1 = ["forward 8","forward 1","down 9","down 8","down 5","forward 4","up 9","forward 7","forward 2","down 6","forward 7","forward 5","forward 8","down 7","up 8","forward 1","forward 6","down 8","up 3","forward 3","down 3","down 7","forward 5","down 1","down 9","forward 4","up 7","forward 9","forward 1","down 6","down 5","down 4","forward 9","forward 1","forward 4","up 3","up 6","forward 1","forward 9","forward 4","down 1","down 9","forward 7","forward 8","down 8","down 8","down 4","down 5","up 3","forward 4","down 1","forward 2","forward 1","forward 8","up 2","forward 5","forward 4","forward 5","forward 8","down 4","down 5","down 8","down 7","down 6","forward 4","up 8","forward 6","down 2","down 7","up 7","down 2","down 6","forward 5","forward 2","forward 8","down 5","down 6","down 6","up 7","down 7","forward 8","down 7","down 7","down 2","down 2","forward 3","up 5","down 3","up 3","down 4","up 9","down 1","up 1","forward 3","up 3","forward 9","up 6","down 3","down 6","forward 4","forward 5","forward 8","down 6","down 9","down 4","down 5","forward 7","down 3","forward 8","forward 3","up 9","forward 5","forward 8","forward 1","down 4","up 2","forward 1","down 1","forward 5","down 8","down 2","forward 3","forward 2","forward 1","down 7","forward 1","down 4","forward 7","forward 5","down 8","down 2","up 4","up 8","forward 6","up 2","down 8","up 9","forward 3","up 5","down 3","down 5","up 6","forward 3","up 9","down 4","forward 8","up 3","forward 6","forward 7","forward 8","forward 6","down 9","forward 4","up 8","forward 3","forward 3","forward 6","down 3","forward 5","down 4","down 4","up 4","down 8","down 4","down 1","down 7","down 7","up 9","down 7","forward 2","down 1","down 8","forward 8","forward 4","forward 6","forward 8","forward 6","forward 8","forward 7","forward 6","up 7","down 6","down 9","down 2","down 8","down 4","up 6","up 8","forward 3","down 7","down 3","forward 3","forward 3","down 4","down 1","up 3","forward 3","down 5","up 6","down 6","forward 1","down 3","down 6","down 9","down 3","forward 8","down 1","forward 7","forward 1","forward 3","up 3","down 8","forward 4","down 4","down 4","down 8","down 5","down 8","forward 6","forward 7","down 9","forward 2","up 9","down 5","forward 2","down 5","down 8","forward 1","forward 6","forward 2","forward 6","down 7","up 7","down 7","forward 7","up 8","forward 9","down 5","up 6","up 6","forward 3","down 5","forward 1","down 4","down 4","down 1","up 6","down 8","down 9","down 2","up 2","up 7","forward 5","down 5","up 2","forward 2","up 1","forward 2","up 4","up 7","forward 2","down 4","down 1","forward 4","up 6","forward 1","up 7","down 8","down 5","down 1","up 7","down 5","forward 4","forward 2","down 2","down 6","forward 1","forward 2","up 6","down 1","forward 2","down 5","down 9","down 6","up 8","forward 3","down 6","up 3","down 8","down 8","forward 2","forward 1","forward 7","forward 8","forward 2","forward 5","down 6","down 3","forward 5","up 8","forward 6","up 9","forward 7","up 3","down 7","down 3","up 8","down 5","forward 3","down 1","forward 1","forward 2","down 7","down 6","down 9","forward 3","down 7","down 7","down 5","forward 4","down 4","forward 5","forward 1","forward 4","down 8","up 4","down 6","down 8","up 1","forward 7","up 3","forward 6","forward 8","forward 9","forward 2","up 6","forward 7","forward 3","up 3","up 6","down 8","up 4","forward 9","down 9","up 3","up 3","down 4","up 3","down 2","down 4","up 9","down 1","forward 6","forward 3","down 3","forward 4","forward 3","forward 8","forward 1","down 1","up 4","up 9","down 8","forward 3","forward 2","down 4","down 1","forward 8","down 8","up 8","up 7","down 4","forward 6","up 5","down 1","down 3","down 9","forward 3","forward 9","down 1","down 6","forward 8","up 1","down 9","down 3","forward 5","forward 9","forward 8","up 7","down 2","down 5","forward 6","down 9","down 4","down 7","down 4","forward 7","down 8","up 8","forward 2","up 3","down 4","forward 2","forward 4","up 4","forward 4","forward 9","down 9","up 1","forward 1","down 8","up 7","up 9","down 8","down 7","forward 9","forward 1","up 3","forward 8","forward 6","forward 5","up 2","forward 8","up 7","down 8","down 2","up 9","down 7","forward 5","forward 4","down 9","forward 4","forward 5","up 1","down 8","down 8","down 4","forward 3","down 1","up 7","down 8","forward 4","down 5","forward 1","down 9","forward 9","up 7","up 1","down 3","forward 3","down 8","forward 9","down 3","up 7","forward 1","up 8","up 2","up 1","forward 8","down 3","forward 5","up 3","forward 6","forward 9","forward 2","forward 6","down 5","forward 2","down 7","up 6","forward 8","forward 6","down 3","forward 8","down 1","forward 2","down 9","up 5","down 6","up 4","forward 6","forward 5","forward 2","forward 9","forward 8","up 4","forward 4","forward 9","forward 4","forward 7","up 6","down 5","forward 8","down 8","up 3","down 4","up 8","up 5","forward 3","down 8","down 9","down 1","forward 7","down 8","up 4","down 8","up 4","down 5","forward 1","forward 3","down 6","down 5","forward 4","up 2","down 7","down 3","up 9","forward 5","forward 3","forward 2","up 2","down 9","up 1","down 2","forward 3","forward 8","forward 5","down 2","down 2","up 3","down 8","forward 4","forward 6","forward 5","up 9","down 7","up 7","up 2","down 2","up 4","forward 2","forward 2","down 7","forward 5","down 2","up 7","forward 6","forward 5","down 1","forward 8","forward 3","forward 2","up 3","down 1","forward 6","forward 5","forward 9","down 5","up 3","down 1","down 5","forward 1","down 1","down 1","forward 6","up 8","forward 9","up 5","up 5","forward 9","forward 3","forward 4","down 8","forward 9","forward 9","up 2","down 6","down 2","forward 1","down 7","up 4","forward 3","down 6","forward 5","down 6","up 5","forward 6","up 6","forward 7","forward 5","forward 1","down 9","forward 7","forward 4","forward 1","forward 6","up 7","forward 6","down 3","forward 4","down 1","down 9","down 8","forward 7","down 7","up 5","forward 1","forward 4","forward 8","forward 6","forward 2","forward 4","forward 2","forward 6","forward 5","down 4","down 3","forward 6","forward 3","up 6","down 3","down 2","forward 1","down 9","up 1","forward 8","forward 1","forward 1","forward 4","down 5","forward 7","forward 5","up 5","up 7","forward 7","forward 5","down 3","down 2","down 7","forward 7","forward 4","down 9","forward 2","down 6","forward 3","up 6","down 8","down 7","down 6","down 7","up 5","up 9","down 4","up 6","forward 1","forward 2","forward 4","up 5","down 2","down 3","forward 9","down 9","down 3","forward 5","forward 3","down 1","up 7","forward 7","forward 5","down 8","up 6","down 7","forward 5","up 7","up 6","forward 2","forward 6","down 1","up 8","down 9","down 1","forward 9","up 9","down 2","forward 6","up 3","down 1","up 9","down 6","up 2","up 6","forward 9","forward 8","up 7","forward 6","up 3","up 4","down 6","forward 1","forward 9","down 9","down 6","forward 1","forward 2","up 3","down 4","down 9","down 3","down 2","forward 7","down 9","forward 9","forward 5","down 9","forward 1","forward 6","down 6","up 8","up 8","up 3","forward 7","forward 7","forward 8","down 5","forward 3","down 4","down 6","forward 1","down 1","forward 7","forward 2","down 7","down 1","up 6","forward 3","down 6","forward 2","down 6","forward 8","down 4","up 8","forward 9","up 5","forward 3","down 6","forward 4","forward 4","down 8","up 5","up 9","down 8","forward 1","down 6","down 3","forward 1","down 4","up 6","down 6","down 6","down 5","forward 5","forward 6","down 1","down 9","down 4","up 7","down 2","forward 5","down 8","down 8","down 6","down 1","up 8","down 1","down 4","forward 6","down 3","down 6","up 4","down 6","up 7","down 3","forward 2","up 3","forward 7","up 7","up 4","forward 5","down 9","down 2","down 9","up 6","forward 9","forward 3","down 1","forward 7","forward 2","down 5","forward 3","forward 7","forward 4","forward 7","forward 6","forward 3","down 6","forward 3","down 1","up 6","up 9","down 1","forward 1","down 1","up 7","forward 8","forward 4","up 4","forward 7","down 3","up 8","up 1","down 6","forward 8","forward 7","up 7","down 4","down 4","down 8","up 3","forward 5","down 4","forward 9","forward 6","forward 6","forward 7","down 6","down 3","forward 2","up 8","forward 1","down 9","up 7","down 3","down 3","up 5","up 4","up 8","forward 2","down 5","forward 7","up 8","up 6","forward 5","down 5","forward 2","down 6","forward 7","down 6","forward 5","forward 3","forward 9","down 7","forward 7","forward 7","forward 7","forward 1","forward 2","forward 2","down 6","down 8","forward 3","down 9","down 5","up 5","forward 3","forward 9","down 7","down 9","down 9","down 9","forward 6","down 1","forward 6","forward 8","forward 8","down 4","forward 8","down 9","forward 6","down 2","down 1","down 5","forward 5","forward 8","forward 7","forward 7","forward 8","down 5","forward 3","up 5","forward 5","down 9","up 8","down 2","forward 8","forward 5","up 5","forward 4","down 3","forward 4","up 3","forward 1","forward 8","forward 3","down 2","up 8","forward 2","down 8","forward 3","up 2","up 1","down 9","down 8","forward 1","forward 1","down 8","forward 9","up 2","forward 4","forward 2","up 2","down 8","down 1","forward 1","forward 3","forward 6","up 6","down 2","up 1","down 3","forward 3","up 5","down 9","down 7","forward 8","up 5","up 4","forward 8","forward 5","down 8","up 8","forward 7","up 8","down 6","down 2","down 3","forward 9","down 4","down 2","down 1","up 2","up 4","forward 3","forward 1","forward 9","forward 1","down 7","up 7","forward 5","down 3","forward 3","down 4","down 1","up 5","down 8","down 2","forward 4","up 9","down 3","down 3","down 2","forward 7","down 2","forward 6","up 8","forward 5","forward 5","up 9","forward 8","forward 9","down 5","forward 5","down 3","forward 5","down 1","forward 6","forward 6","forward 1","forward 2","up 5","forward 9"]