FRPって y = f x を getY = do{x<-getX; return (f x)} にすればいいのか?