#!/usr/bin/env tclsh
proc vec x {list [expr {abs($x)}] [expr {($x>0)-($x<0)}]}
set tx [set hx 0]
set ty [set hy 0]
while {1} {
    set line [gets stdin]
    if {[eof stdin] || $line == ""} then break
    lassign [split $line] d n
    for {set i 0} {$i < $n} {incr i} {
        switch $d {
            R {incr hx 1}
            U {incr hy 1}
            L {incr hx -1}
            D {incr hy -1}
        }
        lassign [vec [expr {$hx-$tx}]] mx dx
        lassign [vec [expr {$hy-$ty}]] my dy
        if {$mx == 2 || $my == 2} {
            incr tx $dx
            incr ty $dy
        }
        set v($tx,$ty) 1
    }
}
puts [array size v]