module Prelude where

snd		:: (a,b) -> b
snd (x,y)	= y