main = print $ map (\n -> sin' n 1) [1..10]
main = print $ map (flip sin' 1) [1..10]
main = print $ map (`sin'` 1) [1..10]
main = print $ map f [1..10]
  where
    f n = sin' n 1

好きなのをどうぞ。