$b=' ';$s=<STDIN>;print 3*(split $b,$s)[0]+(split $b,$s)[1]+((split $b, $s)[2]-(split $b,$s)[1])%(split $b,$s)[0]+((split $b,$s)[2]-(split $b,$s)[3])%(split $b,$s)[0]."\n";
5 1 2 3
21
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!