by@drafear
AC
973ms
let f()=input_line stdin|>int_of_string
let rec r c n=if n=0 then""else c^r c(n-1)let w,h=f(),f()-2;;print_string(r"*"w^"
"^r("*"^r" "(w-2)^"*
")h^r"*"w)90 75
*************************************************************************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ***************************************************************************