z   = importdata('input.txt');
x   = 0;
y   = 0;
wp  = [1,10];
for i=1:size(z,1)
    inst =z{i}(1);
    val  = str2double(z{i}(2:end));
    switch inst
        case 'N'
            wp(1) = wp(1) + val;
        case 'E'
            wp(2) = wp(2) + val;
        case 'S'
            wp(1) = wp(1) - val;
        case 'W'
            wp(2) = wp(2) - val;
        case 'L'
            switch val
                case 90
                    wp    = [wp(2),-wp(1)];
                case 180
                    wp    = -wp;
                case 270
                    wp    = [-wp(2),wp(1)];
             end
        case 'R'
             switch val
                 case 90
                    wp    = [-wp(2),wp(1)];
                case 180
                    wp    = -wp;
                case 270
                    wp    = [wp(2),-wp(1)];
            end
        case 'F'
            x = x + wp(2)*val;
            y = y + wp(1)*val;
    end
end
disp(abs(x)+abs(y))