For loop in Haskell

Run Settings
Language	Haskell
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
module Main
  (main) where
for :: Applicative f => a -> (a -> Bool) -> (a -> a) -> (a -> f ()) -> f ()
for initial condition step body
  | condition initial = body initial *> for (step initial) condition step body
  | otherwise = pure ()
main :: IO ()
main =
  for 0 (< 10) (+ 1) $ \i ->
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	rightfold
Created	7 years ago
Modified	7 years ago
Visibility	Public