Diziler ile ilgili ödev

Kullanıcıdan iki adet sayı alınacak ve bu sayılardan ilki ikincisine kadar olan katlarını bulup bir diziye atacak ve sonra da dizideki elemanlar yazdırılacak (mesela kullanıcı 200 sayısını ve 3 sayısını girdi bizden istenen 200 kadar olan sayılar içerisinde 3 ün katlarını bulmak)

Cevaplarmsınız lütfen
Şimdiden teşekkürler

Ödevini biz niye yapalım?

print $ (\a b -> takeWhile (< b) [a, 2*a..]) 3 200