>>> uncons [] Nothing
>>> uncons [a, b, c] Just (a,[b,c])
>>> unsnoc (LazyT.pack "hello!") Just ("hello",'!')
>>> unsnoc (LazyT.pack "") Nothing
>>> unsnoc (Seq.fromList [b,c,a]) Just (fromList [b,c],a)
>>> unsnoc (Seq.fromList []) Nothing