Fork test in Crystal lang

forktest.cr

puts "Starting..."

forks = 10.times.map do |i|
  fork do
    puts "In fork #{i}"
    sleep(i)
    puts "End fork #{i}"
  end
end.to_a

puts "Forked everything."

forks.each do |f|
  f.wait unless f.terminated?
end

puts "Done waiting."