module Toma where

toma :: Int -> [a] -> [a]
toma 0 _ = []
toma n (x:t) = x : toma (n - 1) t