toDegrees :: Floating a => a -> a
toDegrees rad = rad * 180 / pi

euclidean :: Floating a => a -> a -> a
euclidean x y = let foo = x ^^ 2
	      	    bar = y ^^ 2 
		in sqrt (foo + bar)

main = do
     print [(dist,(toDegrees . atan) (y / x))|(x,y)<-[(1,2),(2,3),(3,4)],let dist=euclidean x y,dist > 3.0]