USING: formatting kernel math sequences math.parser io ;
IN: m0stik
readln string>number
dup
dup
3 * *
swap
-
2
/
VVNJTkc6IGZvcm1hdHRpbmcga2VybmVsIG1hdGggc2VxdWVuY2VzIG1hdGgucGFyc2VyIGlvIDsKSU46IG0wc3RpawoKcmVhZGxuIHN0cmluZz5udW1iZXIKZHVwCmR1cAozICogKiAKc3dhcAotCjIKLwoKcHJpbnRmCgoKCgo=