f :: Int -> [Int] -> [Int]
f n [] = []
f n (x:arr) 
    | x<n = x : f n arr
    | otherwise = f n arr

-- The Input/Output section. You do not need to change or modify this part
main = do 
    n <- readLn :: IO Int 
    inputdata <- getContents 
    let 
        numbers = map read (lines inputdata) :: [Int] 
    putStrLn . unlines $ (map show . f n) numbers

  def f(delim: Int, arr: List[Int]): List[Int] = {
    def myFilter(func: Int => Boolean, arr: List[Int]): List[Int] => List[Int] = {
      if (arr.isEmpty) (x: List[Int]) => x
      else if (func(arr.head)) (x: List[Int])  => myFilter(func, arr.tail)(x.:+(arr.head))
      else  (x: List[Int])  => myFilter(func, arr.tail)(x)
    }

    val aFunc: Int => Boolean = x => x < delim
    myFilter(aFunc, arr)(List())
  }