main@m=do x<-readLn;print$product[1..x];m