chris

type Position = Int
type Move = (Position,Position)
type Towers = ([Int],[Int],[Int])

move :: ([Move],Towers) -> ([Move],Towers)
move (ls,t) = (tail ls,((t1,t2,t3)))
  where
              t1 = [1,2,3]
              t2 = []
              t3 = []