use bigint;$a=++$a*++$c/++$$_-1for<>=~/./g;print$a%573