module Prelude where

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